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Preface 



The disk drive is an important part of the Amiga. Disk drives let you 
store data for later recall. Whether it's an address file, monthly expenses 
or a letter, you can save the data to a disk and load it back into memory 
later. 

This book will help you understand what disk drives are and how they 
work. Whatever your level of knowledge as an Amiga user, Amiga 
Disk Drives Inside and Out gives you the information you need 
about Amiga disk drives. 

This book contains descriptions of the disk drive operations used in 
AmigaBASIC, the Workbench and the CLI (Command Line Interface). 
In addition, you'll find information about direct access (programming 
the hardware and the operating system). Finally this book offers know- 
how about speeding up disk drive access, and a powerful disk copying 
program. 

We feel that this book and the programs included will supply the reader 
with a good working knowledge of the Amiga disk drive. 

The Authors 
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Introduction 



Disk drives just didn't exist on Commodore's earlier computers (e.g., 
PET, VIC-20). Datasettes (cassette recorders) were the mass storage 
devices in these older machines; data was saved and loaded on standard 
audio cassettes. Disk drive interfaces became common in the later 
Commodore computers, but cassette interfaces still existed. 

The old days are gone: Cassettes are too slow for data access on a 
68000-based computer. The disk drive plays the central role in data 
storage on the Amiga. Every Amiga comes from the factory equipped 
with an internal disk drive. The disk drive is such a necessary piece of 
hardware that you can't get your Amiga started without inserting the 
Workbench disk. 

We chose to keep this chapter as short as possible, so that you can get 
on to the main material of this book quickly. You should already be 
familiar with the basic concepts of using disks, even if that. only 
consists of knowing how to insert the Workbench disk. See your 
Amiga manual or read Abacus' Amiga for Beginners for 
information about using your disk drive. 
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1.1 The disk 



Disks are the storage medium used by disk drives. Without a disk, a 
disk drive is totally useless. The Amiga uses a 3.5 inch floppy disk. 
Disks of this size have been on the market for some time, but have 
only become popular in the last few years. IBM, Atari and Apple are 
just a few companies using 3.5 inch disks for data storage. The standard 
disk size for older home computers is the 5.25 inch floppy disk. 

There is no one standard storage capacity for 3.5 inch disks. Each 
computer manufacturer uses his own method for storing information, so 
disk capacity varies from machine to machine. 

The disk drives used in the Amiga have two read/write heads. Each head 
accesses a side of a disk. Commodore recommends that you purchase 
2DD disks only. The 2 stands for "double-sided," the DD for "double- 
density." Double-sided double-density disks are sturdier than 1DD 

(single-sided double-density) disks. 

If you use a 1DD disk, an error can occur on the second side of the disk 
during disk access or even during formatting. Manufacturers don't test 
the "B side" of 1DD disks for hardware errors. This is why 1DD disks 
are less expensive. 

The solution: Spend the extra money for double-sided double-density 
disks. Don't use single-sided, double-density disks — you could lose 
data 

Formatting Before an Amiga (or any computer) can use a disk for storing data, the 

disk must be formatted. This process prepares a disk for receiving 
information. Formatting converts the disk's magnetic media into the 
order specified by the computer's operating system 

The Amiga operating system (AmigaDOS) formats each side of a disk 
into 80 tracks of fixed width. These tracks appear in concentric circles 
around the center of the disk. Each track of each side in combination 
(e.g., track 1 top and track 1 bottom) is called a cylinder. 

Each track can be divided into 11 sectors. Every sector can store 512 
bytes (512 characters). If you multiply the values presented here, you'll 
find that an Amiga disk can hold about 880K: 

2 Read/Write heads multiplied by 
80 Tracks per head multiplied by 
11 Sectors per track multiplied by 
512 Bytes per sector 

= 901,120 bytes (1 character = 1 byte) 
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Since IK corresponds to 1,024 bytes, dividing 901,120 bytes by 1,024 
gives us 880K. To this figure we must add another 28K for directories 
and the File Allocation Table (FAT). A 3.5 inch Amiga format disk can 
easily hold 180 typewritten pages, or more than 900,000 characters. 

With a such a large storage capacity, data organization becomes very 
important AmigaDOS lets you store data under specific names on the 
disk. To keep die data better organized, this data can be placed in 
different disk areas allocated for a set of files. 

Files A collection of data is called a ///<?. The Amiga has a number of 

different file types. For example, a Tool or program file is an 
executable program. The Notepad on the Workbench generates a Project 
(text) file which requires a Tool for access (i.e., the Notepad). The term 
file is a generic term for data. It can be used interchangeably for 
referring to programs, text files, BASIC programs and more. 
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1.2 Suggestions about this book 



We have a few suggestions that will help make your work in disk 
access easier and more enjoyable. We felt that we should mention these 
suggestions now, before you read any further. 

Make a backup copy of any disks you plan to use during the course of 
this book. This includes the Workbench disk and Extras disk. Disk 
access commands in this book should only be performed on a backup 
disk, even if the command looks harmless. This is to avoid any 
accidents. One incorrectly typed program line can destroy a disk. You 
can make backup disks using the DiskCopy command in the CLI or 
the Duplicate item in the Workbench menu. When done making 
backups, store the original disks in a dust-free, non-magnetic place for 
safekeeping. 

Make a backup copy of the optional disk for this book if you bought 
this disk. Copy this disk and store the original disk in a safe place. 
Files which belong together on the disk have been assigned to drawers. 
For example, look in the drawer named CH4 for any programs that are 
listed in Chapter 4. The programs listed in the appendices of this book 
are located in the drawer named Assembler, since they are assembly 
language programs. 
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2 . Workbench disk drive 

functions 



The Amiga disk operating system (AmigaDOS) handles the 
Workbench's disk functions. An interface between the user and the 
machine is needed to convey disk commands to AmigaDOS. 

When you first turn the Amiga on, it doesn't recognize mouse 
movement or keyboard access. The Workbench disk which comes 
equipped with every Amiga establishes that communication between the 
Amiga and user. After the Workbench loads you can perform disk 
operations using the mouse and pulldown menus. These menus and the 
mouse make computing very easy for the new user. 

The Workbench has some disadvantages which should be mentioned. 
The worst is that you usually can't see every filename on the disk from 
the Workbench, because of unavailable graphic information. However, 
the Workbench is a reliable user interface, and many Amiga users don't 
use anything else (see Chapter 3 for an alternate interface). 
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2.1 Copying single files 

Every Amiga user with only 512K of memory and a single drive knows 
how bothersome and time consuming it can be to copy a single file to 
another disk. 

You drag the program icon of the file to be copied into the window or 
onto the icon of the destination disk. You'll have to change disks at 
least four times, depending on the size of the program. As everyone 
knows, frequent disk switching is hard on both the operator and the disk 
drive. 

One alternative would be to buy an external disk drive. This is fine, but 
costs money. You could just put up with the disk switching, but it can 
get very inconvenient. 

The RAM disk There's a better way to copy files quickly and easily: Use the Amiga's 
RAM (Random Access Memory). You can set aside a section of 
memory to act as a fake disk drive. This imitation disk drive is called a 
RAM disk. A RAM disk works much faster than an internal or external 
mechanical drive. Of course even the RAM disk has a disadvantage: As 
soon as you turn the computer off, all data stored in the RAM disk at 
the time is erased forever. If you reset the Amiga by pressing 
<Ctrl><CommodorexAmiga> or <Ctrl> left<Amiga> right<Amiga> 
(depending on the Amiga model), this also destroys any data in the 
RAM disk. As long as the Amiga is under power and hasn't been reset, 
the RAM disk information is as safe as if it were on a disk. You should 
make a point of saving RAM disk data to a floppy or hard disk 
occasionally. 

The RAM disk's capacity changes with the amount of data it contains. 
This is limited by the amount of memory available, unlike the floppy 
disk which can hold 880K. If you have memory expansion in your 
Amiga, the RAM disk can store more data. There's no absolute limit to 
the RAM disk's capacity. However, the Workbench always states that 
the RAM disk is full, even if you only store one byte in it. 

If you already see a RAM disk icon on your Workbench screen, skip to 
the paragraph entitled Copying with the RAM disk on the next page. 

The RAM disk isn't installed directly in some versions of the 
Workbench. We'll have to enter the CLI to create the RAM disk (more 
on the CL I in Chapter 3). Double click the CLI icon to open it (the 
program is normally in the System directory on the Workbench disk). 
Some versions of the Workbench let you hide the CLI using 
Preferences. If the CLI icon cannot be found, double click the 
Preferences icon. When the Preferences screen appears enable the CLI. 

10 
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Click the Save gadget to save this data. Open the System drawer. The 
System window should display the CLI icon. 

After starting the CLI, a window appears displaying the prompt (1>). 
Enter the following command sequence, pressing the <Return> key at 
the end of each line: 

1> dir ram:<Return> 
1> endcli<Return> 

The dir ram: command calls the directory of the RAM disk. Since no 
RAM disk exists yet, AmigaDOS creates a RAM disk and displays a 
RAM disk icon on the Workbench screen. The Endcli command 
terminates the CLI, closes the window and returns to the Workbench 
screen. The RAM disk icon appears on the screen. 

Copying with To copy single files using the RAM disk, try this example. Look for 
the RAM disk the Clock icon (it may be in the Utilities drawer in some versions of 
the Workbench). Drag the Clock icon from the Workbench window to 
the RAM disk icon. The pointer changes to a wait pointer. The drive 
runs for a moment, then the wait pointer changes into the normal 
mouse pointer. Double click the RAM disk icon and you'll find the 
Clock icon inside. Now insert a disk in the internal drive and wait for 
its icon to appear. Drag the clock from the RAM disk window to the 
icon of the newly inserted disk. The Clock program moves to the disk 
in the internal drive. 

To free up storage space in RAM select the Clock icon in the RAM 
disk and select the Discard item from the Workbench menu. A requester 
appears. Click on the OK to discard gadget to delete the clock from the 
RAM disk. 
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2.2 Deleting files 

The Workbench has two ways of deleting files from the disk. One 
method is to click the selected file icon then select the Discard item 
from the Workbench menu. A requester appears to tell you "Warning: 
you cannot get back what you discard." If you click on the OK to 
discard gadget, the Workbench deletes the selected file from the disk. 

Empty Trash The second method consists of dragging the icon of the file to be deleted 
to the Trashcan icon. The file disappears from the screen. The program 
still exists; you've moved it to the Trashcan, which stores files like a 
drawer. Selecting the Empty Trash item from the Disk menu actually 
removes the files from the Trashcan. The advantage of this over the 
Discard item is that files which you accidentally moved to the Trashcan 
can be recovered from the Trashcan as long as you haven't selected 
Empty Trash. The Empty Trash item releases the memory area the files 
occupied on the disk. 



2.2.1 Deletion protection for files 



There are some features which prevent the deletion of data and 
programs. Select the icon of the Clock program with a single click. 
Now select the Info item from the Workbench menu. After the drive 
finishes running, an Info window appears on the screen. The Info 
window has a number of gadgets in it. The two string gadgets in the 
upper part of the window display the name and object type of the file. 
The Amiga currently has five object types: 



Tvpe 


Sample Object 


Disk 


Workbench disk 


Garbage 


Trashcan 


Drawer 


System directory 


Tool 


Notepad 


Project 


Notepad 



The object type determines whether additional indications appear in this 
string gadget. For example, Garbage or Drawer object types need no 
additional information. Disk object types require information such as 
total capacity, the number of blocks already occupied and the number of 
blocks still available, and the difference of the two numbers. Finally 
block size information appears: "Bytes per Block 512". Block capacity 
corresponds to a sector on disk. 
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2.2 Deleting files 



Status 



A Status field appears at the upper right of the Info window. The word 
Deleteable indicates that the file whose Info window currently displayed 
can be deleted from the Workbench. Place the mouse pointer on the 
gadget currently containing the word Deleteable and click once. The 
display changes to Not Deleteable. Now you can't delete this file from 
the disk using the methods described above. Click the Save gadget to 
make the clock undeleteable and exit the Info window. 

Select the Clock icon and then select the Discard item from the 
Workbench menu. The requester appears; click on the OK to discard 
gadget. After the drive runs, the Workbench title bar displays the 
message "Error while removing clock:222." You can't delete the clock 
until you change the status back to Deleteable. 
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Autostarting a Project 



Default Tool 



Project (text or program code) icons can be copied back and forth on the 
Workbench screen. You can also execute a Project by double clicking 
its icon. The Project itself is not an executable program: It needs its 
corresponding Tool (main program) to execute. When you double click 
a Project, the Workbench looks for the Tool used to create the project 
When the Workbench finds the Tool, it loads and executes the Tool 
then loads the Project into memory. If the Project is program code 
(e.g., AmigaB ASIC) the Project executes. 

How does the Workbench know which Tool created the Project? Create 
a short document (Project) using your Notepad (it's in the Utilities 
drawer of your Workbench disk). Save the Project and quit the Notepad. 
Close and reopen the Utilities drawer. Click on the Project's icon and 
select the Info item from the Workbench menu. The Info window 
appears. 

The Default Tool string gadget contains the entry "sys:Utilities/ 
Notepad". This means that the Notepad Tool was used to create this 
Project and can be found on the system disk (the disk with which you 
started your system) in the Utilities drawer. If you close the Info 
window and double click this Project, the Amiga checks to see if there 
is a Default Tool entry available. If this entry exists, the Amiga 
searches for the Default Tool, loads the Default Tool and loads the 
Project as well. 

This autostarting capability can be useful with word processing 
programs or AmigaBASIC. Double clicking a Project is much easier 
than double clicking the Tool, waiting for the Tool to load, then double 
clicking or loading the Project. 
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There are two other ways of accessing a Project and its Tool. Try each 
example using the Project you created above using the Notepad: 

1. Click once on the Project icon you created from the Notepad. 
Press and hold a <Shift> key and double-click on the Notepad 
icon. 

2. Press and hold a <Shift> key. Click once on the Project icon 
you created from the Notepad. Click once on the Notepad icon. 
Release the <Shift> key; both objects should be highlighted. 
Select the Open item from the Workbench menu. 

These last two options also work when no entry exists in the Default 
Tool string gadget. This lets you load files created by another word 
processing program directly into the Notepad, without changing the 
Default Tool string gadget 

Tool Types The Tool Types string gadget describes information which 
automatically passes to the indicated Tool. The Notepad Tool Types 
gadget lists the names of the font files loaded in while the Project loads. 
Unfortunately, you can't change Tool Types in non-Notepad Projects. 
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2.3 



Tips & Tricks for the 
Workbench 



Selecting 
multiple files 



Keyboard 
shortcuts 



The following are some tips and tricks which make working with the 
Workbench much easier on the user. 

Multi selection is of the best features on the Workbench. For example, 
if you want to delete a whole series of programs from a disk, press and 
hold a <Shift> key while clicking on every file icon you want deleted. 
Select the Discard item from the Workbench menu to delete all the 
highlighted file icons. 

Multi selection can also be used to copy multiple files onto another 
disk. 

You actually don't use the mouse much when running a word processor 
or the CLI. However, if a requester appears, you must switch to the 
mouse to click on one of the gadgets. 

You don't have to reach for the mouse. You can actually select requester 
gadgets from the keyboard. Pressing the key combination 
<Commodorexv> (or left <Amiga><v>) corresponds to the selection 
of the Retry gadget with the mouse. The key combination 
<Commodorexb> (or left <Amiga><b>) activates the Cancel gadget 
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The CLI 



The Command Line Interface (CLI) is another method of communicat- 
ing with AmigaDOS. The CLI is much more powerful than the 
Workbench. It is also much more difficult to use than the Workbench. 
You must learn specific commands and command syntax. The CLI's 
access isn't as easy as selecting a menu item or double clicking an icon. 

Maybe the CLI seems like a throwback to the early days of home 
computing. Not true: The CLI is part of the Amiga's true power, 
especially in multitasking. 

The Workbench only allows very limited multitasking. For example, if 
you format a disk using the Initialize item from the Disk menu, the 
computer remains unavailable for any other tasks. However, using the 
CLI lets you format a disk while printing a document and writing a 
new document, all at the same time. The more you learn about the 
CLI, the less you'll probably use the Workbench. 
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3.1 The CLI's capabilities 



To begin learning the CLI boot (start) the Amiga. Insert the 
Workbench disk. If the power's off, turn on the Amiga. If the power is 
already on; press <Ctrl> <Commodore> right <Amiga> (or <Ctrl> left 
<Amiga> right <Amiga>) to reset the computer. When the Workbench 
finishes loading, open the Workbench disk, then the System drawer. 
Double click on the CLI icon. 

Only disk specific CLI commands appear in this chapter. Other 
commands mentioned earlier will not be repeated here (e.g., DiskCopy). 



3.1.1 Starting disks with Install 



During power-up, the Amiga automatically loads the Workbench when 
you insert the Workbench disk. If you insert a non-Workbench disk, the 
Amiga hand icon stays on the screen. The Amiga checks the boot sector 
of the inserted disk for information that indicates a boot disk. If this 
information doesn't exist, the Amiga displays the hand icon until you 
insert a Workbench or other bootable disk. 

The Install command creates a bootable disk. It writes the information 
required by AmigaDOS into the boot sector, making the disk bootable. 
The Install syntax is as follows: 

1> install DRIVE 

"Drive" must be replaced with the drive specifier in which the disk is 
located. The following makes the disk in the internal drive bootable: 

1> install dfO: 

You can use the Install command on a newly formatted disk which 
doesn't contain any files. However, if you reset the Amiga with this 
disk in the internal drive, the booting process is not completed 
properly. For example, only 60 characters fit into a display line. Also, 
the normal commands are available. This occurs because there are files 
missing from the disk. See Section 3.2 for the minimum files required 
for booting the Amiga. 
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3.1.2 Info 



Don't worry if during a save process the requester appears with the 
"Disk Full" message, it is not a serious problem. You can insert a new 
disk and repeat the save process. Some programs, however, are very 
sensitive to a disk with too little storage space. You might get a "Guru 
Meditation" and lose all data in RAM. You should check disk space 
when using these types of programs. The CLI Info command displays a 
list similar to this: 

Mounted disks: 

Unit Size Used Free Full Errs Status Name 

dfO: 880K 1683 75 95% Read/Write Workbench 

Volumes available: 
Workbench [Mounted] 

The "Mounted disks" heading contains information about the drives 
connected to the Amiga. The example above lists the contents of the 
internal drive (dfO:) only. This information includes the disk size 
(880K); the number of blocks used (1683); the number of disk blocks 
unused (75). In addition you'll find the percentage of the disk full 
(95%); the number of defective blocks (Errs=0); the write protect status 
of the disk (Read/Write); and the disk's name (Workbench). 

About Status If the write protect on the disk is open, Info displays Read status (you 
can only read from the disk). If the write protect clip of the disk covers 
the opening, Info displays Read/Write status (you can read, write and 
delete disk files). 

The "Volumes available" heading lists the names of the disks currently 
recognized by AmigaDOS. An additional [Mounted] indicates that this 
disk is currently available for access. 



3.1.3 Protecting files 



When you want a file protected against accidental deletion from the 
Workbench, you should select the Not Deleteable gadget from the Info 
window. The CLI performs the same function using the Protect 
command. The syntax of the command is: 

1> protect [Filename] [Status) 
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Enter the name of the file to be protected for "Filename" and to which 
the information in "Status" applies. The best explanation is through 
another practical example using the Workbench clock: 

1> protect clock rwed 

Each of the four letters rwed stands for a special file attribute: 

rwed r The file can be read by the program. 

w The file can be written to by the program. 

e The file can be started with execute. 

d The file can be deleted. 

Unfortunately AmigaDOS in this case plays a little joke by ignoring 
the three flags besides the Delete flag (the d). This may be upsetting, 
but true. An example: 

1> protect clock 

This input protects the Workbench clock from accidental deletion since 
the Delete flag was not set The remaining three flags are of no concern 
since they are not considered by DOS. The command: 

1> protect clock rwe- 

delivers the same result. Of course the status set in the CLI can be read. 
The List command displays the file's status. Here's the default status of 
the clock as displayed by the List command: 

1> list dfO: 

clock 18000 rwed 07-Oct-86 15:27:27 

Note that the information displayed includes the filename, the flags, the 
creation date and time. This example shows that all four flags are set 
You can delete the Clock program in this state. The following input 
disables the delete status: 

1> protect clock rwe- 

Entering List again displays the following line for the clock: 

clock 18000 rwe- 07-Oct-86 15:27:27 

The file cannot be erased on the disk from either the Workbench or 

CLI. 

The date and time items will only be correct if you set the current date 
and time in Preferences before saving or copying, or if the Amiga is 
equipped with a battery backed realtime clock. 



22 



Abacus 



3.1 The CLI's capabilities 



3.1.4 



The DiskDoctor 



The 3.5 inch disks protect themselves quite well against the outside 
world (dust, fingerprints, etc.)- However, the Amiga can't decode disk 
data sometimes. In that case, the Amiga displays a requester indicating 
the error on the disk (e.g., disk structure corrupt). Another requester 
suggests that you use the DiskDoctor to fix the disk structure. 

The The DiskDoctor is a small program which can only be called from the 

DiskDoctor CLI. This program doesn't perform miracles. It can provide a valid 
structure for a disk. It may also be able to rescue most of your corrupted 
disk data. This is possible thanks to the high redundancy (repetition) 
rate of information on one disk. For example, if damage occurs on track 
18 of a Commodore 154 1 format disk, both the directory and the file 
pointers are lost. AmigaDOS spreads directory information over the 
entire disk so that an extreme loss of data cannot occur quickly. The 
result is slow directory output since the read/write heads must travel 
back and forth to collect the desired information. The syntax of the 
DiskDoctor command is: 

1> diskdoctor [drive] 

The drive number for any connected 3.5 inch drive can be used (e.g., 
dfO:). 

At the prompt, insert the disk into the drive and press the <Return> 
key. The Doctor goes to work. First the program reads the file 
information sequentially from each cylinder. During this time DOS 
determines the locations of hard errors and tells the user the track 
number and side number: 

Hard error Track 29 Surface 

Hard error A hard error can occur from mechanical defects (scratches, dirt, etc.) or 

from errors in the track formatting. A simple formatting procedure may 
be all it takes to make the disk useful again. Allow the DiskDoctor to 
finish its examination. 

During the second run, the DiskDoctor displays the names of all files 
and directories readable from AmigaDOS. The screen displays what the 
DiskDoctor is doing with the file (Replacing/Inserting file/dir xxx). 
Badly damaged files are removed automatically, as seen in the line 
below: 

Attention: Some file in directory xxx is unreadable and 
has been deleted 

If a file contains data which are only partially unreadable, the file 
remains on the disk but a warning appears: 
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Warning: File xxx contains unreadable Data 

Finally the DiskDoctor asks if you want the defective files deleted from 
the directories: 

Delete corrupt files in dir xxx ? 

If you have worked with a disk monitor, some items can be rescued. 
Otherwise it may be best to remove the defective files. 

The last message of the DiskDoctor asks the user to copy all saved files 
to a new disk and format the disk which was processed by the 
DiskDoctor. The formatting routine determines whether the hard errors 
that occurred can be removed. 



3.1.5 AddBuffers 



The Amiga allocates a 25K memory buffer for each connected disk 
drive. This area acts as interim storage between the disk drive and the 
Amiga. All data sent from the disk first goes to the buffer before being 
processed in memory. Sometimes when you enter the Info command for 
the first time, the Amiga loads information from the disk. If you enter 
Info again, disk access may not take place, since the data required is still 
in the buffer. 

The size of this buffer can be increased using the AddBuffers command. 
Since system memory decreases when you increase buffer size, you 
should be careful in your buffer allocation. You have a choice: Big 
buffer or high speed. 

Here's a sample call: 

1> AddBuffers dfO: 20 

The above call assigns drive dfO: 20 blocks (=10K) more of buffer 
memory. Individual programs which are called sequentially (e.g., CLI 
commands) and whose sizes don't exceed 10K can be retained in 
memory without disk access. This remains in effect until another disk 
access overwrites the commands in the buffer. 



3.1.6 Using the RAM disk with the CLI 



CLI users who have only one drive may find it a nuisance that the CLI 
can only read its commands from the Workbench disk. If you want to 
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examine the directory of any other disk with the dir command, the 
Amiga requests the Workbench disk. The reason for this phenomenon is 
simple: All CLI commands are nothing more than short programs 
normally stored on the Workbench disk. If you insert another disk in 
the internal drive, the Amiga cannot execute the CLI command dir dfO:. 
It demands the Workbench disk. If you answer the request, the CLI 
displays the Workbench disk's directory instead of the desired directory. 
Some tricks can help here. If you only want to read the directory of the 
foreign disk once, enter the following command while the Workbench 
disk is in the drive: 

dir ? 

The Dir command loads without executing. Instead a line appears on the 
display which contains information about the correct syntax of the Dir 
command. This line of syntax is called the argument template: 

DIR,OPT/K: 

The cursor waits for input Remove the Workbench disk and insert the 
disk you want to view. Enter dfO: and press <Return>. The CLI 
displays this directory. This method of using the question mark can be 
applied to all CLI commands. 

There are other ways of applying CLI commands to other disks. The 
RAM disk can help. Reset the Amiga, open the CLI and enter the 
following lines: 

1> cd dfO: 

1> makedir ram:c 

1> copy c: to ram:c all 

1> assign c: ram:c 

This set of commands copies all the CLI commands to the RAM disk 
and makes the RAM disk the drive to search for these commands. 

Problem: If you use the above four commands on an Amiga with 512K 
RAM, you won't have much RAM left. In fact, you won't be able to 
load any large programs. The solution: Copy only those commands you 
think you'll need to the RAM disk. Reset the Amiga, open the CLI 
and enter the following lines: 

1> makedir ram:c 
1> copy c/dir to ram:c 
1> copy c/list to ram:c 
1> copy c/cd to ramrc 
1> copy c/copy to ramtc 
1> copy c/delete to ram:c 
1> copy c/type to ramtc 
1> . 



1> assign c: ramie 
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Replace the above periods with other commands you want copied into 
the RAM disk. The commands above show the most often used CLI 
commands. Commands used less frequently only occupy a little 
memory — these can be loaded from the Workbench disk into the RAM 
disk at any time. Insert the Workbench disk in the internal disk drive 
and enter the following command sequence: 

1> copy dfO:c/ [CLI-command-desired] to ram:c 

Typing these commands every time you start your Amiga takes time 
and can get to be boring. Instead you can put the commands into a 
script file and use the script file to create the CLI-based RAM disk. 

Script files A script file is a normal text file which can be created by any word 

processing program. It contains a series of CLI commands which are 
executed in sequence. You start a script file by entering the Execute 
command, followed by the script file's name. This saves typing the 
input for often used CLI command sequences such as RAM disk 
installation. The startup sequence which executes immediately after 
booting the Amiga is really a script file. 

You can create a script file with any word processing program that can 
save data as an ASCII file (e.g., BeckerText). The editor ED contained 
in the C directory of the Workbench disk is all you need to write a 
script file. Call ED by entering: 

1> ed [Filename] 

Let's create the RAM disk routine as a script file. Enter: 

1> ed ram-disk 

Enter the CLI commands listed above for creating a RAM disk. Press 
<Escxx> to save the script file and exit ED. Reset the Amiga, open 
the CLI and enter the following to run the script file: 

1> execute ram-disk 

Modifying the startup sequence gives you the CLI-based RAM disk 
available when you reset. Change directories and invoke ED as shown 
below: 

1> cd dfO: 

1> ed s/startup-sequence 

The desired script file appears on the screen. Insert the lines below 
before the Loadwb command: 

dir ram: 
execute ram-disk 

Press <Escxx> to save the change and exit ED. After every restart the 
Amiga installs a new RAM disk automatically. 
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3.1.7 Path 



When you type a command into the cli, AmigaDOS searches on the 
disk for a program of the same name in a specific order. The search 
begins in the current directory. If DOS doesn't find the command there, 
the C directory is searched next If DOS still can't find the command it 
displays an "Unknown command" message. 

The Path command prevents this error. This command tells DOS to 
automatically search additional directories for the command which was 
entered. 

An example is the startup sequence of the Workbench disk. This 
sequence looks like this in some versions of the Workbench: 

echo "Workbench disk (Version 1.2/33.43)" 

echo " " 

echo "(Date and Time can be set with 'Preferences')" 

if EXISTS sys: system 

path sys: system add 
endif 

BindDrivers 
setmap d 
LoadWb 
endcli > nil: 

The "if EXISTS" command searches the boot disk for the System 
directory. If this directory exists, the Path command includes this 
directory in the list of directories to be searched. This is why the 
DiskCopy command can be called without having to indicate that it is 
in the System directory: AmigaDOS automatically checks this directory 
when looking for a command. 

If you enter Path without arguments (parameters), it displays the 
directory names in the current path. AmigaDOS searches in the order 
indicated. The Path Reset command deletes all pathnames previously 
entered. Only the current directory and the directory assigned to device 
C: are searched (see Section 3.1.9 for a description of device C:). 



3.1.8 DiskChange 



AmigaDOS immediately recognizes every disk change in the internal 
and external drives. Since the 3.5 inch drives report disk changes 
automatically to the operating system, it's impossible to write data to 
the wrong disk. However, the larger 5.25 inch drives act differently. 
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Most 5.25 inch disk drives don't tell the Amiga that a disk change has 
occurred. This could cause damage to the disk currently in the drive due 
to the Amiga adding data to what it thinks was the disk previously in 
the drive. 

The DiskChange command should be entered after every 5.25 inch disk 
change. The following command tells the operating system that a 
different disk has been inserted in drive df 1 : 

1> diskchangc dfl: 



3.1.9 



Assign 



The operating system of the Amiga uses a colon to differentiate 
between device names and filenames. (e.g., dfO:, dfl: and prt: are device 
names). The Assign command permits device name assignment to 
directories or filenames. Assign entered without any parameters displays 
the current assignments. Here is an example, your display may differ: 



1>ASSIGN 




Voulmes : 




RAM DISK 


[Mounted] 


Workbenchg 1.3 [Mounted] 


Directories: 


CLIPS 


RAM DISK: clipboards 


ENV 


RAM DISK:env 


T 


RAM DISK:t 


S 


Workbench 1 . 3 : s 


L 


Workbench 1.3:1 


C 


Workbench 1 . 3 : c 


FONTS 


Workbench 1.3: font s 


DEVS 


Workbench 1.3: devs 


LINS 


Workbench 1.3: libs 


SYS 


Workbench 1.3: 


Devices : 




PIPE AOX 


SPEAK NEWCON DF2 


CON RAM 




1> 





Assume that you have a text file named Peter inside the Letters 
directory. This directory is inside the Text directory in drive dfO: 



df : Text /Letters/Peter 



You want to copy this letter to several disks. It would be very time 
consuming to input the following line for every Copy command: 
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copy dfO: Text/Letters/Peter to Copyl 

The Assign command assigns this directory structure a shorter name: 

assign Orig: dfO: Text/Letters/Peter 

After entering this command the Copy command can be abbreviated as 
follows: 

copy Orig: to Copyl 

The "Orig:" is now shorthand for "dfO:Text/Letters/Peter". This method 
of assigning device names to paths can save you a great deal of typing. 

If you enter the Assign command without arguments (parameters) it 
returns a list of assignments currently recognized by AmigaDOS. This 
is handy if you can't remember which device names are available. 

The pseudo device C: is also an assigned device name. The Path 
command used previously showed C: as the last directory entry to be 
searched for CLI commands. The C directory on the Workbench disk is 
normally searched automatically. That's why AmigaDOS demands this 
disk when you enter a CLI command. If you copied the CLI commands 
into the RAM disk as discussed previously, "assign C: RAMx" tells 
DOS to search the C directory of the RAM disk for CLI commands. 

To disable an assignment, enter Assign and the name alone: 

assign Orig: 

The command above disables the "Orig:" device. 
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3 . 2 Interactive directory 



Even though Amiga disks have 880K of memory, they get full even- 
tually. Disks capable of booting (like the Workbench) have less storage 
capacity since they already contain many drawers. Many programs in 
these directories are seldom used and take up valuable space. 

The Dir command lists the contents of the Workbench disk. Entering 
Dir without arguments displays all directories on the disk at once. The 
sequence below lists all directories interactively: 

1> dir opt ai 

This option lists all directories, including their individual files, and 
displays a question mark prompt after each entry. The directory wants 
you to respond (interact). You have three options in interactive mode 
when displaying all of the files: 

<del><Return> Type the word "del" to delete the file. 

<t><Return> Display the contents of a text file. 

<Return> Display next file/directory. 

This command helps you find unnecessary files on the Workbench. 
Start with the printer drivers. Only the drivers which fit the attached 
printer are needed. All other drivers can be erased (enter del and press 
<Return>). Most users would not want to select a foreign keyboard 
layout on the Amiga. Erasing all the keyboard drivers from the 
Devs/Keymaps directory except "usaO" and "usal." 

As soon as you buy a decent word processor, delete the Notepad from 
the Workbench disk. Delete the Expansion drawer if you don't own a 
hard disk drive or other exotic peripherals. 

The following files can also be removed if you don't need them: 

Path Condition for ctelption 

devs/serial. device Printer not on serial port 

devs/parallel. device Printer not on parallel port 

devs/Mountlist No special peripherals attached 

(e.g., 5.25 inch drive) 

fonts/... (depends on applications) 

demos/... (usually can be removed) 

Clock (depends on applications) 

Calculator (depends on applications) 

Let's use the Utilities drawer as an example of how you can operate the 
Dir command interactively. Enter the following: 
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1> dir opt i 



Press the <Return> key until the Utilities drawer (directory) is displayed 
on the screen. Enter <e> to enter this directory. To delete the Calcula- 
tor, enter the word <del><Return> when the words calculator and 
calculator.info are displayed. The entire disk can be searched in this way 
for unnecessary files. 

Here is an example of the display, your display may differ slightly: 



l>dir dfO: opt i 

Trashcan (dir) ? 

c(dir) ? 

Prefs (dir) ? 

System (dir) ? 

1 (dir) ? 

devs (dir) ? 

s (dir) ? 

t (dir) ? 

fonts (dir) ? 

libs (dir) ? 

Empty (dir) ? 

Utilities (dir) ?e 
.info ? 

Calculator ? del 
Calculator.info ?del 



1> 
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3.3 



Tips & Tricks for the CLI 



Keyboard 
shortcuts in 
the CLI 



Abbreviating 

CLI 

commands 



There are a lot of tips and tricks to make your CLI sessions more 
efficient. The following section presents some of these. 

The table below shows some shortcuts available in the CLI: 



Keys 



Function 



<CtrlxD> 

<CtrlxC> 

<Ctrl><L> 

Any key 

Backspace 

<Commodorexv> 

<Commodorexb> 



Interrupts script file. 

Terminates a command which is executing. 

Clears the screen. 

Stops text output. 

Continue output. 

Click on Retry gadget. 

Click on Cancel gadget. 



Depending on the Amiga model, you may have either a <Commodore> 
key or a left <Amiga> key. 

If the CLI commands become too long (e.g., Execute, Addbuffers, 
BindDrivers, etc.) the CLI commands can be renamed with the Rename 
command. If you use script files frequently, the Execute command can 
be renamed to "ex" which saves some typing. The following example 
illustrates the renaming procedure: 

1> rename c/execute to c/ex 

You can now type "ex startup-sequence" instead of "execute startup- 
sequence". Try the abbreviation "ren" for the Rename function. The 
command for this would be as follows: 

1> rename c/rename to c/ren 

Other abbreviations are easily implemented: 

Command Abbreviation 



dir 


d 


copy 


c 


delete 


del 


type 


t 


run 


r 


etc. 





This list can be expanded according to the user's needs. Avoid 
abbreviations that don't even remotely resemble the command word; the 
new word will be harder to remember. 
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Programming in BASIC 



Many computer novices were introduced to the world of computer 
languages through BASIC. Some old hands make fun of the language 
because it is too slow and convoluted. Times have changed. From the 
orginal spaghetti-code BASIC faster and more productive BASIC 
dialects have been developed. These new versions can be used in the 
professional development of programs. ABasic, which was delivered 
with the first Amigas, didn't offer half the capabilities of structured and 
module oriented programming of the modern AmigaBASIC. The 
Amiga, with its fast 68000 processor, gives the old C64 experts a new 
trust in BASIC programming. Where a "FOR i=l TO 10000" required 
at least ten seconds on the old C64, the Amiga can count this down in a 
mere two seconds. This is not the only proof of speed which can be 
achieved on the Amiga. 
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4.1 LOAD, SAVE and Co. 



The user who has loaded or stored a BASIC program is familiar with 
the two commands LOAD (load program) and SAVE (store program). 
AmigaBASIC also offers some other capabilities: 

To have a "lightning" start without having to load the program and then 
RUN it, the following variation is used: 

RON "Program" 

The program is loaded from disk and started immediately. If the user 
knows before starting AmigaBASIC which program will be used, the 
icon of the desired program can be double clicked. This starts Amiga- 
BASIC first and then automatically loads and executes the program 
which was clicked. This is also possible from the CLl: 

1> RON amigabasic "Program" 

This input does the same as a direct start from the Workbench. 

Several alternatives also exist during saving. If the normal SAVE 
command is followed by a comma, the command can be enhanced with 
three different options. 

SAVE "Program", a 

a.) Option "a" stores the program in ASCII format. In this format it 
can be loaded by any word processing program and edited further. 

SAVE "Program", b 

b.) If option "b" is used, the program is stored in binary. A program 
stored under this option requires less storage space on the disk 
than a program stored under the "a" option. It can also be loaded 
much faster. An attempt to load such a file into a word 
processing program fails since the BASIC commands are not 
stored as ASCII text, but in an abbreviated format 

SAVE "Program", p 

p.) The "p" option is the last and surely the most interesting 
possibility of storing a program on disk The program is encoded 
(protected) by this option and stored on disk. It can no longer be 
edited, only started. Any attempt to list the program results in an 
error message. This option is of interest to those users who want 
to prevent a listing of a program. 
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Since a program stored with "p" cannot be modified a backup copy 
should be made of the listing before using the "p" option for saving. 
Loading and attempting to save the program again using the "a" option 
results in an error message. For this reason extreme caution should be 
used. 

Another interesting capability offered by AmigaBASIC is the consecu- 
tive loading of several programs into the BASIC working memory. The 
MERGE command is used to do this. It can be used in direct mode and 
also in the program itself. Several routines (for example an Editor) can 
be stored as programs and when needed merged into other programs. 
Such a program is always added at the end of the programs in memory. 
It cannot be merged at any desired location. 
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4.2 Files in AmigaBASIC 



In the preceding chapters the concept of a file was discussed. For the 
following sections two additional concepts must be explained: 

The data If a computer file is compared with a card file, the individual cards in 

record the card file correspond to the data records in the computer file. The data 

records of an address file, for example, contain the complete address of a 

certain person. 

The data field Every card in a card file is normally subdivided into several fields. For 
the address file box, the fields can be designated as follows: First Name, 
Last Name, Street, City, Phone. Every card in this file has five fields. 
In a computer file such subdivisions of a data record are called data 
fields. 

These concepts should be thoroughly understood since they are 
frequently used in connection with data processing. If you run into 
trouble, remember the card file: 

file <-> card file 

contains Data records <-> file cards 

subdivided into Data Fields <-> fields 

The important role of files in AmigaBASIC is discussed in the next 
sections. 



4.2.1 File types in AmigaBASIC 



How would an address file be constructed? The Amiga has two different 
file types. First, sequential files which are characterized by simple 
handling. Second, the random access files which require more work, use 
more space, but are far superior to sequential files in their capabilities. 
Each of the two file types are useful for different applications which are 
discussed later. 



4.2.2 A sequential file is created 



First start AmigaBASIC. A sequential file can be "opened" with an 
almost limitless choice of names. The limitations are that some 
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characters cannot be used s when naming the file. These characters have 
special significance in AmigaDOS. These are: 

: Determines drive (for example dfO: , ram:). 

/ Determines directory levels (drawers). 

# Used for search criteria in the CLI and some programs. 

? Used for search criteria in the CLI and some programs. 

It's possible to create a file named Example/file, but AmigaDOS inter- 
prets it to mean that in the Example drawer the file "file" should be 
addressed. A file with the name example-file causes no problems. If a 
colon occurs in the filename, AmigaDOS interprets the character string 
before the colon as a disk or device name. 

To avoid misunderstandings a single filename is used in the following 
examples. We will create an address file named example-file. Input the 
following text into the LIST window of AmigaBASIC: 

OPEN "example-file" FOR OUTPUT AS #1 

Let's examine the syntax of the command sequence for opening a 
sequential file: 

"OPEN" means what it says and is the key word in this command 
sequence. Then the file is named, in this case example-file. The OPEN 
command continues with direction of the information flow. This is an 
indication if the file should be written (FOR OUTPUT) or read only 
(FOR INPUT). Since data is first written into the file, it is opened for 
writing (FOR OUTPUT). Finally the command is given a file channel 
number which can have a value between 1 and 255. The file channel is 
important since all following commands for writing and reading refer to 
the file channel. 

Continue adding to the program with the following lines: 

DataEntry: 
INPUT Person$ 
INPUT Street$ 
INPUT City$ 

Each one of these input commands accepts a data field from the 
keyboard. All three data fields together produce a data record. 

PRINT #l,Person$ 
PRINT #l,Street$ 
PRINT #l,City$ 
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The PRINT 
command 



The INPUT 
command 



The CLOSE 
command 



An interesting point has been reached in the development of the 
sequential file. The PRINT command is familiar from normal text 
output on the screen. Since file channel #1 was opened, the PRINT 
#1,... command does not output the following data on the screen, but 
sends them directly to the disk to the name of the file (example-file) 
opened on channel #1. Each of the three PRINT commands writes a data 
field to the disk. 

Add the following: 

INPUT "more";more$ 

IF more$="Y" THEN DataEntry 

CLOSE #1 
END 

The INPUT command asks if any additional date is input and stored, or 
if the file should be closed with CLOSE #1 and the program terminated. 
If another input is desired (y) the program branches again to the data 
input area (Label: DataEntry), and the entire procedure is repeated. 
Newly input data is appended to the previously input data. For this 
reason it is called a sequential file. 

It is important to place the CLOSE command at the end of the program 
to close the file, or the integrity of the data in the file cannot be 
assured. The disk drive won't run after the completion of every data 
record. The data is first placed in a buffer until an access to the drive is 
justified. At the end of the program there may still be data in the buffer 
which has not yet been written to disk. The CLOSE command causes 
the data remaining in the buffer to be written to the file and the channel 
closed. 

This completes half of the address file. Now you'll want to read the 
stored data and examine it The following program section can be used: 

OPEN "example-file" FOR INPUT AS #1 

DataReader: 

INPUT #l,Person$ 

INPUT #l,Street$ 

INPUT #l,City$ 

PRINT Person$ 

PRINT Street$ 

PRINT City$ 

INPUT "more";more$ 

IF more$="Y" THEN DataReader 

CLOSE #1 

END 

Since this time data is only read from the disk, the file is opened with 
"FOR INPUT". The previous PRINT command redirected the output of 
the data to the disk and the INPUT #1,... command gets the data from 
the disk, not from the keyboard. 
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The program lacks one more item. As soon as an attempt is made to 
read additional data, the Amiga reports a "Read Past End" error. To 
avoid this error, a command sequence is added to check for the end of the 
file. The modified program appears as follows: 

OPEN "example-file" FOR OUTPUT AS #1 

DataEntry: 

INPUT Person$ 

INPUT Streets 

INPUT City$ 

PRINT #1, Person$ 

PRINT #1, Streets 

PRINT #l,City$ 

INPUT "more";more$ 

IF more$="y" THEN DataEntry 

CLOSE #1 

OPEN "example-file" FOR INPUT AS #1 

DataReader : 

IF EOF (l)OO THEN End 

INPUT #1, PersonS 

INPUT #1, Streets 

INPUT #l,City$ 

PRINT PersonS 

PRINT Streets 

PRINT CityS 

INPUT "more";more$ 

IF more$="Y" THEN DataReader 

End: 

CLOSE #1 

END 

The new function EOF() checks to see if there is another data record 
after the one just read. If there is not, a value other than zero is returned. 
The 1 in EOF(l) refers to the file channel number. EOF stands for End 
Of File. 



4.2.3 Enlarging a sequential file 



This should make the small address file complete. What happens if 
additional data is added? Since a sequential file always adds data directly 
to the beginning of the file, the stored data is overwritten. To prevent 
this, the APPEND mode (designation: "A") must be used. This appears 
as follows: 

Enlarging: 

OPEN "example-file" FOR APPEND AS #1 

INPUT PersonS 

INPUT Streets 

INPUT CityS 

PRINT #1, PersonS 
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PRINT #l,Street$ 

PRINT #l,City$ 

INPUT "Append raore";raore$ 

IF more$="y" THEN Enlarging 

CLOSE #1 

END 



This solves the problem. Some functions such as sorting and searching 
our address database are still missing, but for purposes of training this 
program is adequate. Let's examine a complete listing of a small address 
file management program. 



Program 1: 'Program 1: 



more: 

INPUT "(R)ead next, (I)nput, (E)nd-; action$ 

IF action$="r" THEN DataReader 

IF action$="i" THEN DataEntry 

IF action$="e" THEN END 

GOTO more 

DataEntry: 

CLOSE #1: 

count=0 

OPEN "example-file" FOR APPEND AS #1 

INPUT "Name";Person$ 

INPUT "Street";Street$ 

INPUT "City";City$ 

PRINT #1, Person$ 

PRINT #1, Street$ 

PRINT #l,City$ 

CLOSE #1 

GOTO more 

DataReader: 

IF cnt=0 THEN OPEN "example-file" FOR INPUT AS #l:cnt =1 

IF EOF (l)OO THEN PRINT "No more records!": GOTO more 

INPUT #1, Person$ 
INPUT #1, Streets 
INPUT #l,City$ 
PRINT "Name", Persons 
PRINT "St r eet " , St reet $ 
PRINT "City",City$ 
GOTO more 
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4.2.4 A Random access Hie 



The simple handling of the sequential file has some disadvantages. 
Every addition of a data set increases the size of the file. If a certain data 
set is accessed, the entire file must be searched from the beginning for 
this entry. Even though AmigaBASIC is fast, a search of this nature 
through large files can take several minutes. A sequential file is mere- 
fore not suitable for a large address file. It is only useful if all the data 
stored is accessed at the same time, such as in program files where all 
the data is loaded sequentially into the working memory of the 
computer. 

AmigaBASIC has a more suitable file type for the address file: the 
random access file, also called random file. 

This file type permits random access to certain data records and their 
fields without searching a long sequential list AmigaBASIC provides 
very powerful commands to access these types of files. The syntax for 
opening a file of this type is as follows: 

OPEN "R" , #1 , "example2 " , 40 

FIELD #1,10 AS Number$,20 AS Description, 10 AS Price$ 

The OPEN command is the same one used in sequential files. The "R" 
designates the mode for both reading and writing random files (R stands 
for random access). The filename shouldn't present a problem. The only 
new item is the designation of a fixed data record length. Once it is set, 
it cannot be changed later. Therefore the number, in this example 40, 
should be considered carefully. You must designate a length that allows 
the input of the longest piece of information you'll want to use. 

At first glance the second new command sequence, which starts with the 
FIELD command, appears somewhat difficult, but it's easily under- 
stood. 

Following the FIELD command is the file channel number (#1). The 
variables, which contain the information to be stored on the disk are 
assigned a maximum length. The total of these is the exact length of 
the data record. It is best to consider the whole matter on the basis of an 
example. This time an inventory control file is created to illustrate the 
advantages of a direct access file: 

FileName$="example2 " 

OPEN "R",#l,FileName$,40 

FIELD #1,10 AS Number$,20 AS Descriptions, 10 AS Price$ 

DataEntry: 

INPUT "Stock-Number" ;nr 

INPOT "Name";na$ 

INPUT "Price ($) "/dollars 
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LSET Number$=MKS$(nr) 

LSET Description$=na$ 

LSET Prlce$=MKS$ (dollars) 

PUT #l,nr 

INPUT "more";more$ 

IF more$="y" THEN DataEntry 

DataReader: 

INPUT "Stock-Number" ;nr 

GET #l,nr 

PRINT "Name", Descriptions 

PRINT "Price ($) ",CVS(Price$) 

INPUT "more";more$ 

IF more$="y" THEN DataReader 

CLOSE #1 

END 

Let's take a moment to become familiar with the new commands. First, 
the LSET command. The FIELD command determines the maximum 
number of characters allowed in each field and a name is assigned to 
every data field. The INPUT command does not limit the length during 
input of data, so the input is first put into auxiliary variables "nr", 
"na$" or "dm." The assignment to field variables occurs through the 
LSET command. If the input is smaller than the maximum size 
allowed, the variable is padded on the right with blanks. All entries are 
left justified (LeftSET). If the input is longer than allowed, it's cut off 
on the right Therefore every field variable ends up being the prescribed 
length. 

The MKS$ function converts a number into an equivalent representa- 
tion of text. The LSET command always expects a text variable so a 
number must first be converted before it can be stored in the proper field 
variable. 

The PUT command finally stores the new data record on the disk. The 
data record number and channel number are both required. This is a 
numerical expression through which the data records are differentiated 
from each other. A data record number can only be assigned once. In 
this demonstration program the stock number serves this function. 

The reading process now starts in reverse order. The command which 
reads the selected data set into the field variable is GET. The CVS 
command returns the "Price$" variable from text back into numbers. 

Unlike the sequential file it is not a problem to add additional data 
records to an existing file. This is the advantage of the random access 
file because every data record has its own identity number under which 
it was stored and under which it can be read again. No specific sequence 
of data record numbers is required. Any desired number can be read. 

The random access file is almost complete now. However, there is one 
problem to solve. The Amiga is not happy trying to read non-existent 
data from the disk. If data that doesn't exist is called for, it simply reads 
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an arbitrary data record. The solution to this problem is discussed in 
Section 4.3. 

Admittedly this concept is more difficult to understand than sequential 
files, but more can be accomplished with random access files. Besides 
the inventory control example with its stock numbers, prices and the 
other items, there are thousands of applications for this file type. Now 
we'll go on to the next section where some fun awaits. 



4.2.5 Mini Data-The complete project 



■Mini Data VI. © 1987 by GroSoftS 

f 

CLEAR, 35000SI 

1 

Arrays: 5 

DIM Enter$(15) ,Maske$ (15) , Search$ (15) f 

5 

SCREEN 1,640,200,2,211 

WINDOW l,"Mini Data VI. 0", , 21,1 1 

1 

FOR i=l TO 101 

MENU i,0,l,""I 

NEXT if 

1 

MENU 1,0,1, "Mini Data"! 

MENU 1,1,1, "Open file F1"I 

MENU 1,2,1, "New File F2"I 

MENU 1,3,1, "Quit Mini Data F3"f 

1 

MENU 2, 0,1, "Search"? 

MENU 2, 1,1, "Select F4"? 

5 

MENU 3, 0,1, "Mask"? 

MENU 3, 1,1, "Mask change F5"l 

1 

MENU 4, 0,1, "Printer"? 

MENU 4, 1,1, "Print record F6"? 

MENU 4, 2,1, "Print file F7"? 

? 

MENU 5, 0,1, "Sort"? 

MENU 5,1,1,-Criterium F8"f 

51 

COLOR 2,0? 

LOCATE 19,5:PRINT "File :"? 

LOCATE 20,5:PRINT "Record :"5 

5 

Bufferl 

COLOR 1,0? 

91 

Main Loop:? 

45 



4. Programming in BASIC Amiga disk drives inside and out 



MENU ONI 

ON MENU GOSUB MenuBarl 

BREAK ONI 

ON BREAK GOSUB Interruption! 

ON ERROR GOTO ProblemI 

ac$=""I 

ac$=INKEY$I 

IF ac$ ="" THEN MainLoopI 

IF ac$=CHR$(129) THEN FileOpen! 

IF ac$=CHR$(130) THEN NewFile! 

IF ac$=CHR$(131) THEN MiniDataQuit! 

IF MiniFile=l THEN I 

IF ac$=CHR$(132) THEN Searcher I 
IF ac$=CHR$(133) THEN MaskChangel 
IF ac$=CHR$(134) THEN PrintRecord! 
IF ac$=CHR$(135) THEN MiniFilePrint! 
IF ac$=CHR$(136) THEN SortRoutinel 
IF ac$=CHR$(31) THEN PrevRecordI 
IF ac$=CHR$(30) THEN NextRecordI 
IF ac$=CHR$(13) THEN DataEntryl 
IF ac$=CHR$(28) THEN FirstRecordI 

END IFI 

GOTO MainLoopI 

I 

MenuBar : I 

Menue=MENU(0)I 

MenuPoint=MENU (1)1 

IF Menue=l THEN ON MenuPoint GOTO 

FileOpen , NewFile , MiniDataQuit I 

IF MiniFile=l THENI 

IF Menue=2 THEN ON MenuPoint GOTO Searcher! 

IF Menue=3 THEN MaskChangel 

IF Menue=4 THEN ON MenuPoint GOTO 

PrintRecord,MiniFilePrintI 
IF Menue=5 THEN SortRoutinel 

END IFf 

RETURNI 

I 

FileOpen:! 

text$=""l 

LOCATE 22, 5: PRINT "Please enter filename: "f 

Buffer! 

TextDataEntry 30,22,23,24,text$I 

LOCATE 22, 5 SPRINT SPACE$(70)I 

IF text$="" THEN MainLoopI 

ActualMiniFile$=text$+".MiniFile"I 

MiniFile=l: GOSUB MenuOn! 

CLOSE #11 

quantity=0:nr=l:text$=""l 

OPEN "R",#l,ActualMiniFile$,730 

FIELD #1,10 AS a$,720 AS b$I 

LOCATE 19,12:PRINT SPACE$(70)I 

LOCATE 19,12:PRINT ActualMiniFile$I 

GOSUB Separate! 

GOSUB MaskLoad! 

GOTO FirstRecordI 
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? 

NewFile : ? 

text$=""? 

LOCATE 22,5:PRINT "Name of the file :"I 

TextDataEntry 22,22,23,24,text$? 

LOCATE 22,5: PRINT SPACE$(70)? 

IF text$="" THEN! 

LOCATE 22, 28: PRINT "Procedure terminated! "I 

GOSUB Pause? 

GOTO MainLoop? 
END IFI 
IF INSTR(text$,":")<>0 THEN! 

LOCATE 22,19:PRINT "Please use the internal drive 
only. "? 

GOSUB Pause? 

GOTO NewFilef 
END IF! 

CLOSE #l:ActualMiniFile$=""? 
quantity=0:nr=lf 
text$=text$+" .MiniFile"? 
ActualMiniFile$=text$l 
GOSUB MenuOnf 

OPEN "R" , #1 , ActualMiniFile$ ,7301 
FIELD #1,10 AS a$,720 AS b$ ? 

LSET a$=CHR$(l)I 
LSET b$=CHR$<255)? 
PUT #1,11 

nr=l: GOSUB AuxOutput? 
MiniFile=l? 

LOCATE 19,12:PRINT SPACE$(70)I 
LOCATE 19, 12: PRINT ActualMiniFile$I 
GOSUB MenuOut? 
GOTO CreateMask? 
I 

RecordChange : ? 
Enter$=""? 

FOR i=l TO quantity? 
xp%=l+i? 

text$=Enter$(i)? 
Buffer? 

TextDataEntry 28, xp%, 80,32, text$? 
Enter$(i)=text$? 

LOCATE l+i,28:PRINT SPACE$(32)? 
LOCATE l+i,28? 

lang=LEN(text$) :IF lang>32 THEN lang=32? 
PRINT MID$(text$,l,lang)? 
Enter$=Enter$+text$+CHR$ (3) ? 
NEXT i? 
GOSUB MenuOn? 
1$=STR$ (LEN (Enter$) ) ? 
LSET a$=l$? 
LSET b$=Enter$? 
PUT #l,nr? 
GOSUB MenuOut? 
GOTO MainLoop? 
? 
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PrintRecord:! 

GOSUB MenuOn! 

OPEN "PRT:" FOR OUTPUT AS #2! 

FOR i=l TO quantity! 

PRINT #2,Enter$(i)! 

NEXT i! 

FOR i=l TO 2: PRINT #2,CHR$ (10) :NEXT i! 

CLOSE #21 

GOSOB MenuOutf 

IF under=l THEN RETURN! 

GOTO MainLoop! 

f 

MiniFilePrint:! 

GOSUB MenuOn! 

nr=l! 

OPEN "PRT:" FOR OUTPUT AS #21 

morelO:! 

ReturnChk=l:GOTO Separate2! 

Rl:! 

FOR i=l TO quantity! 

PRINT #2,Enter$(i)l 

NEXT i! 

FOR i=l TO 2:PRINT #2,CHR$ (10) :NEXT i! 

nr=nr+l! 

GOTO morel 01 

f 

MiniDataQuit:! 

COLOR 1,01 

LOCATE 22,21! 

PRINT "Are you sure ? (if yes then 'y')"! 

w:! 

be$=INKEY$! 

IF be$="" THEN GOTO w! 

IF UCASE$(be$)="Y" THEN CLOSE #1:END! 

LOCATE 22,5! 

PRINT SPACE$(70)5 

GOTO MainLoop! 

! 

FirstRecord:! 

nr=l:halt=0! 

SI 

apart:! 

GOSUB MenuOn! 

GOTO Separate2! 

R3:! 

FOR i=l TO quantity! 

LOCATE i+1,28! 

PRINT Enter$(i)! 

NEXT i! 

GOSUB AuxOutput! 

GOSUB MenuOut! 

IF under=l THEN RETURN! 

GOTO MainLoop! 

! 

PrevRecord:! 

halt=0! 
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nr=nr-l : IF nr<l THEN nr=l:GOTO MainLoopI 

GOTO apart! 

! 

NextRecord:! 

IF halt=l THEN MainLoop! 

vor=l! 

nr=nr+l! 

GOTO apart! 

5 

DataEntry:! 

IF Enter$<>"" THEN RecordChange! 

FOR i= 1 TO quantity? 

text$=""! 

xp%=l+i! 

Buffer I 

TextDataEntry 28,xp%, 80, 32, text $! 

Enter$(i)=text$! 

LOCATE l+i,28:PRINT SPACE$<32)! 

LOCATE l+i,28! 

lang=LEN(text$) :IF lang>32 THEN lang=32SI 

PRINT MID$<text$,l,lang)! 

Enter$=Enter$+text$+CHR$ (3) ! 

NEXT if 

GOSUB MenuOn! 

1$=STR$ (LEN (Enter$) ) 51 

LSET a$=l$I 

LSET b$=Enter$I 

PUT #l,nr! 

FIELD #1,10 AS initl$,720 AS init2$! 

LSET initl$=CHR$(l)I 

LSET init2$=CHR$(255)! 

PUT #l,nr+ll 

GOSUB MenuOutf 

halt=01 

nr=nr+l! 

GOTO apart! 

! 

Searcher:! 

FOR i=l TO quantity! 

LOCATE l+i,28! 

PRINT Search$(i)! 

NEXT i! 

LOCATE 22,19:PRINT "Please input or change search 

critera."! 

FOR i=l TO quantity! 

text$=Search$(i)! 

xp%=l+i! 

Buffer! 

TextDataEntry 28, xp%, 80,32, text$! 

Search$(i)=text$I 

LOCATE l+i,28:PRINT SPACE$(32)! 

LOCATE l+i,28I 

lang=LEN(text$) :IF lang>32 THEN lang=32! 

PRINT MID$(text$,l,lang)! 

NEXT i! 

LOCATE 22,5:PRINT SPACE$(70)! 
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FOR i=l TO quantity! 

IF Search$ (i) <>"" THEN start! 

NEXT if 

LOCATE 22,24! 

PRINT "No search critera available."! 

GOSUB Pause! 

GOSUB AuxOutput! 

under=l: GOSUB apart : under=0 : GOTO MainLoop! 

! 

start:! 

nr=l! 

LOCATE 22, 5: PRINT SPACE$(70)! 

start2:! 

GOSUB MenuOn! 

ReturnChk=2:GOTO Separate2! 

R2:! 

FOR i=l TO quantity! 

IF Search$(i)<>"" AND INSTR(Enter$ (i) ,Search$ (i) ) =0 THEN 

more IV! 

NEXT i! 

FOR i=l TO quantity! 

LOCATE l+i,28! 

PRINT Enter$(i)! 

NEXT i! 

GOSUB MenuOut! 

LOCATE 22,17:PRINT "Fl=Print Record Key=Search ..."! 

question:! 

ab$=INKEY$! 

IF ab$="" THEN question! 

IF ab$=CHR$(129) THEN under=l :GOSUB PrintRecord:under=0! 

LOCATE 22, 5: PRINT SPACE$(70)! 

morelV:! 

nr=nr+l! 

GOTO start2! 

! 

MaskLoad:! 

COLOR 2,0! 

OPEN MiniFlleName$ FOR INPUT AS #3! 

INPUT #3, quantity! 

FOR i=l TO quantity! 

INPUT #3,Maske$(i)! 

LOCATE i+l,2:PRINT "("; i : LOCATE i+l,5:PRINT ") "! 

LOCATE i+1,7! 

PRINT Maske$(i)! 

NEXT i! 

CLOSE #3! 

COLOR 1,0! 

RETURN! 

! 
MaskeSave : ! 
MiniFileName$=""! 
GOSUB Separate! 
GOSUB MenuOn! 

OPEN MiniFileName$ FOR OUTPUT AS #3! 
PRINT #3, quantity! 
FOR i=l TO quantity! 
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PRINT #3,Maske$(i)f 

NEXT il 

CLOSE #3f 

GOSOB MenuOut! 

IF under=l THEN RETURNI 

GOTO MainLoopf 

! 

CreateMask : f 

FOR i=l TO quantityf 

Maske$(i)=""f 

LOCATE l+i,20f 

PRINT SPACE$(17)I 

NEXT if 

again : 1 

LOCATE 22, 5 f 

PRINT "Number of Fields per Record (max. 9) :"f 

quantity=0:IF other=0 THEN text$=""f 

Bufferf 

TextDataEntry 46,22, 1,2, text$I 

LOCATE 22, 5: PRINT SPACE$(70)f 

quantity=VAL(text$) f 

IF quantity<l OR quantity>9 THEN againl 

mcreatell:f 

FOR i=l TO quantity!! 

text$=""f 
REM IF other=l THEN text$=Maske$ (i) 5 
1 
I 

xp%=l+if 
COLOR 2,05 

LOCATE xp%,2:PRINT "("; i : LOCATE xp%,5:PRINT ") "1 
Buffer? 

TextDataEntry 7,xp%, 19,20,text$I 

IF RIGHT$(text$,l)<>" " AND RIGHT$ (text$, 1) <>" . " THEN 
text$=text$+" "f 
lang : f 

IF LEN(text$)<20 THEN text$=text$+" . " :GOTO langf 
COLOR 1,0:LOCATE l+i,7:PRINT SPACE$(18)f 
COLOR 2,0: LOCATE l+i,7:PRINT text$! 
Maske$(i)=text$f 
NEXT if 
other=0f 
COLOR 1,01 
GOTO MaskeSavel 

MaskChange : 1 

other=lf 

GOTO mcreatelll 

1 

Pause:! 

FOR i=l TO 4:MENU i,0,0:NEXT if 

Bufferf 

LOCATE 22,635 

PRINT "• Press a key '"f 

WHILE INKEY$="" :WENDf 

LOCATE 22,5:PRINT SPACE$(70)f 
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LOCATE 22, 63: PRINT SPACE$(16)5 
FOR i=l TO 4:MENU i,0,l:NEXT if 

RETURN! 
! 

AuxOutput : ! 

COLOR 1,05 

LOCATE 20,17:PRINT SPACE$(10)I 

LOCATE 20, 17: PRINT STR$(nr)! 

RETURN! 

! 

Interruption : I 

CLOSE #1:END! 

! 

Problem:! 

GOSUB MenuOut! 

COLOR 1,05 

LOCATE 22,5:PRINT SPACE$(70)I 

IF ERR=7 OR ERR=14 THENI 

LOCATE 22,18:PRINT "Memory full."I 

RESUME Marked 
END IF! 
IF ERR=53 THEN! 

LOCATE 22, 19: PRINT "File not found."! 

LOCATE 19,12:PRINT SPACE$(63)f 
I 

CLOSE #1! 

KILL ActualMiniFile$! 

MiniFile=0! 

RESUME Marke! 
END IF! 
LOCATE 22,17! 

PRINT "An Internal program error occoured."! 
Marke:! 
GOSUB Pause! 
GOTO MainLoopl 
! 

Separate : ! 
MiniFileName$=""! 
FOR i=l TO LEN(ActualMiniFile$)! 
IF MID$(ActualMiniFile$,i,l)="." THEN stopl! 
MiniFileName$=MiniFileName$+ MID$ (ActualMiniFile$, i, 1) ! 
NEXT i! 
stopl:! 

MiniFileName$=MiniFileName$+" .Maske"! 
RETURN! 
I 

Separate2 : 5 
z=0:n=l: Enter $=""! 
GET #l,nr! 
l$=a$:Enter$=b$! 
IF INSTR(Enter$,CHR$(255))<>0 THEN! 

GOSUB MenuOut! 

IF ReturnChk=l THEN CLOSE #2 :ReturnChk=0:GOTO 
FirstRecord! 

GOSUB AuxOutput! 

under=0! 



52 



Abacus 4.2 Files in AmigaBASIC 



IF ReturnChk=2 THEN! 

LOCATE 22,21:PRINT "No more records available . "! 
ReturnChk=01 
GOSUB Pause! 
GOTO FirstRecordf 

END IF1 

FOR i=l TO quantity:Enter$(i)="":NEXT i:Enter$=""f 

halt=l! 
END IF! 
1=VAL(1$)! 
FOR 1=1 TO 111 
IF MID$(Enter$,i,l)=CHR$(3) THEN! 

z=z+l:IF z>quantity THEN ende! 

Enter$ <z) =MID$ (Enter$, n, i-n) 5 

n=i+ll 
END IF! 
NEXT il 
ende : I 

IF ReturnChkoO THEN ON ReturnChk GOTO R1,R2! 
GOTO R3! 
! 

MenuOn : f 

FOR 1=1 TO 5:MENU 1,0,0:NEXT i! 
LOCATE 22, 62: PRINT "» Moment ... '"! 
RETURNS 
! 

MenuOut : ! 

FOR i=l TO 5:MENU i,0,l:NEXT il 
LOCATE 22,62:PRINT SPACE$(14)f 
Buffer! 
RETURN! 
I 

SortRoutine:! 
text$=""! 
LOCATE 22,55 

PRINT "Sort using which field :"! 
Buffer! 

TextDataEntry 32,22,2,3,text$! 
LOCATE 22,5:PRINT SPACE$(70)1 

IF text$="" OR VAL(text$)<l OR VAL(text$) >quantity THEN 
MainLoopf 

Kriterium=VAL (text$) ! 
GOSUB MenuOn! 
nr=l! 
more: I 

z=0:n=l: Enter $=""! 
GET #l,nr5 
l$=a$:Enter$=b$5 

IF INSTR(Enter$,CHR$(255))<>0 THEN more21 
nr=nr+l! 
GOTO more! 

more2 :1 

Counter=nr-lI 

DIM DataEntry2$ (Counter)! 

FOR k=l TO Counter! 
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z=0 : n=l : Enter$=""I 

GET #1,1* 

l$=a$: Enter $=b$I 

l=VAL(l$)f 

FOR j=l TO II 

IF MID$(Enter$,j,l) =CHR$ ( 3 ) THENI 

z=z+l:IF z>quantity THEN ende25 

Enter$(z)=MID$(Enter$,n, j-n)I 

n=j+lf 
END IFI 
NEXT jf 
ende2 : I 

FOR i=l TO Counter-11 
z=0 : n=l : DataEntry2$=""I 
GET #1,1+15 
12$=a$:DataEntry2$=b$I 
12=VAL(12$)I 
FOR j=l TO 121 
IF MID$(DataEntry2$, j,l)=CHR$(3) THENI 

z=z+l:IF z>quantity THEN ende3f 

DataEntry2$ (z) =MID$ (DataEntry2$, n, j-n) I 

n=j+ll 
END IFI 
NEXT jl 
ende3 : I 
IF Enter$ (Krlteriura) > DataEntry2$ (Kriterium) THENI 

LSET a$=l$I 

LSET b$=Enter$I 

PUT #1,1+11 

LSET a$=12$I 

LSET b$=DataEntry2$I 

POT #1,11 

GOTO iandkl 
END IFI 

Enter$=DataEntry2$ : l$=12$f 

FOR a=l TO quantity:Enter$(a)=DataEntry2$(a) :NEXT al 
iandk:! 
NEXT II 
NEXT kl 

ERASE DataEntry2$I 
GOSOB MenuOutI 
GOTO FlrstRecordl 
I 

SUB Buffer STATICI 
Buffer:! 
ad$=INKEY$I 

IF ad$<>"" THEN ad$="":GOTO Bufferl 
END SOBI 
I 

SOB TextDataEntry (xpos%,ypos%,Length%,Wide%,text2$) 
STATICI 
SHARED text$I 
text$=text2$I 
COLOR 0,21 

LOCATE ypos%,xpos%: PRINT SPACES (Wide%) f 
COLOR 1,21 
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IF text$<>"" THEN LOCATE ypos%,xpos%: PRINT text$f 

quantity=0 : StepNum=l :xpos2%=xpos%I 

LINE <xpos%*8-8, ypos%*8-l) - (xpos%*8-l,ypos%*8-l) , 31 

I 

1 :I 

ab$=INKEY$I 

IF ab$="" THEN If 

IF ab$=CHR$(3) OR ab$=CHR$<255) THEN 15 

I 
•Ende S 

IF ab$=CHR$(13) THEN gobacklOI 
I 

■Cursor right! 

IF ab$=CHR$(30) AND text$<>"" AND quantity<LEN (text$) 
THENI 

LINE <xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l),2 

IF StepNum>0 THEN LOCATE ypos%,xpos2%: PRINT 
MID$ <text$, StepNum, 1) I 

xpos%=xpos%+H 

IF xpos%>xpos2%+Wide%-l THEN! 
xpos%=xpos2%+Wide%-H 
StepNum=StepNum+lI 
IF (StepNum-l)>50 THEN StepNum=50S 

END IFI 
lang=LEN(text$) :IF lang>Wide% THEN lang=Wide% I 
IF StepNum>0 THEN LOCATE ypos%, xpos2%:PRINT 
MID$ (text$, StepNum, lang) I 

LINE (xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l) ,31 
quantity=quantity+lf 
GOTO II 
END IFI 

IF ab$=CHR$(30) THEN If 
I 

•Cursor leftl 
IF ab$=CHR$(31) AND text$<>"" AND quantity>0 THENI 

LINE (xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l),2I 

IF StepNum>0 THEN LOCATE ypos%,xpos2%: PRINT 
MID$ (text$, StepNum, 1)1 

xpos%=xpos%-lf 

IF xpos%<xpos2% THENI 
xpos%=xpos2%I 
StepNum=StepNum- 1 I 
IF (StepNum-l)<l THEN StepNum=lI 

END IFI 
lang=LEN(text$) :IF lang>Wide% THEN lang=Wide%I 
IF StepNum>0 THEN LOCATE ypos%, xpos2%:PRINT 
MID$ (text$, StepNum, lang) I 

LINE (xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l) ,31 
quant it y=quantity-ll 
•GOTO II 
END IFI 

IF ab$=CHR$(31) THEN II 
I 

'Backspacel 
IF ab$=CHR$(8) AND quantity>0 AND text$<>"" THENI 
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text$=LEFT$ (text$,quantity- 

1) +MID$ (text$, quantity+1, LEN (text$) -quantity) f 
xpos%=xpos%-l:quantity=quantity-lf 
lang=LEN(text$) :IF lang>Wide% THEN lang=Wide% f 
LINE <xpos%*8-8,ypos%*8-8)-(<Wide%+xpos2%-l)*8- 

l,ypos%*8-l),2,bff 

LOCATE ypos%,xpos2%: PRINT MID$ (text$, StepNum, lang) 1 
LINE <xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l),3S 
GOTO If 

END IFI 

IF ab$=CHR$<8) THEN If 

I 

■ Delete f 

IF ab$=CHR$(127) AND quantity>=0 AND textSo"" THENf 

text $=LEFT$( text $, quantity) +MID$ (text$,quantity+2, LEN (tex 

t$) -quantity) f 

lang=LEN(text$) :IF lang>Wide% THEN lang=Wide%f 
LINE (xpos%*8-8,ypos%*8-8)-( (Wide%+xpos2%-l) *8- 

l,ypos%*8-l),2,bff 

LOCATE ypos%,xpos2%: PRINT MID$ (text$, StepNum, lang) I 
LINE (xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l),3I 
GOTO 15 

END IFI 

IF ab$=CHR$(127) THEN If 

I 

1 

'DataEntryl 

IF LEN(text$)+l>Length% THEN IS 

IF LEN(text$)>l AND MID$ (text$, quantity+1) <>"" THEN 

text$=LEFT$ (text$ , quantity) +ab$+MID$ (text$, quantity+1, LEN 

(text$) -quantity) ELSE text$=text$+ab$S 

quantity=quantity+H 

xpos%=xpos%+lf 

IF xpos%>xpos2%+Wide%-l THEN I 
xpos%=xpos2%+Wide%-lf 
StepNum=StepNum+l S 

lang=LEN(text$) :IF lang>Wide% THEN lang=Wide%I 
LOCATE ypos%,xpos2%: PRINT MID$(text$, StepNum, lang) I 
LINE <xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l),3I 
GOTO If 

END IFI 

lang=LEN(text$) :IF lang>Wide% THEN lang=Wide%f 

LOCATE ypos%,xpos2%: PRINT MID$ (text$, StepNum, lang) 1 

LINE (xpos%*8-8,ypos%*8-l)-(xpos%*8-l,ypos%*8-l) ,35 

GOTO If 

f 

gobackl0:5 

COLOR 1,01 

END SUB 

The f character in the previous program lines is only for reference. It 
shows the end of the AmigaBasic line. Due to the formatting of this 
book many of the lines have been split. Following are the most 
important variables and their meaning: 
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Variable 



Function 



Enter$() 

Enter$ 

1$ 

Makse$() 

Seaich$0 

Minifile=l 

ActualMiniFile$ 

other 

nr 


Stores data fields. 

Contains template. 

Contains search criteria file 

file often. 

Name of the opened file. 

Flag if data set was already written. 

Number of the current data set. 



Those who are interested in the labels for the example subroutines will 
find the labels briefly explained here: 



Label 



Function 



MainLoop 

Menuon 

MenuOff 

TextDataEntry 

Buffer 

CreateMask 

NewFile 

Mask change 

RecordChange 



Main program loop. 
Deactivates menu bar. 
Activates menu bar. 
Line editor for input 
Prevents keyboard overrun. 
Creates screen template. 
Initializes new file. 
Change screen template. 
Change data record. 
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4 . 3 Instructions for Mini Data 



Now that the theoretical part is over let's get practical. Enter or load the 
program from the optional disk and type RUN. 

After a brief initialization period the title display appears. It's still 
rather empty. Only File: and Record: are displayed, but these can be 
changed immediately by loading an address file. 

Even though Mini Data can be used from the menu bar and the 
keyboard, for the sake of simplicity it is used here only with the 
keyboard. The menu titles are self explanatory. 

First select the New File item (new file) by pressing F2 and enter the 
name of the desired file. How about Addresses? OK, the name is input 
and the filename indicated appears beside File:. After a brief wait 
another prompt appears. This time the input refers to the number of 
data fields within each record of the file. Seven data fields for an address 
file should be enough. Therefore input 7 and press the <Return> key. 
This time no wait is required. The Data field template can be input 
immediately. The Line text editor operates using the following keys: 
<Delete>, <Backspace>, <Cursor up> and <Cursor down>. After 
pressing the Return key, the cursor jumps down and forward to the next 
Meld. The input is ended on the last, i.e. lowest, data field template, the 
template is stored automatically. With this basic knowledge the follow- 
ing input template can be created: 

Name 

Address 

City 

State 

Zip 

Telephone 

Remarks 

The dots behind the names of the data fields are added by Mini Data. Of 
course the templates and inputs suggested here are not compulsory, but 
it is easier to follow the example if we use the same data. 

After installing the template the input can start. Simply press the 
<Return> key. Mini Data is now ready for input of data and signals this 
by a highlighted text field and a red cursor. In the input mode, every 
text field has a preset maximum of 80 characters. Since they do not all 
fit into the text window (in Mini Data a text window can hold only 32 
characters), the text scrolls in the text window. Very practical! Try the 
first input: 
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Name Jim Smith <Return> 

Address 1234 Any drive <Return> 

City Somewhere <Return> 

State . MI <Return> 

Zip 49505 <Return> 

Telephone xxx-xxx-xxxx <Return> 

Remarks none <Retum> 

The <Returns> behind the input lines should not be input, but simply 
mean to press the <Return> key. After the input has been completed, 
the disk drive runs briefly. On the lower right side of the screen a 
message appears requesting you to wait a moment. During this time no 
other function can be selected to prevent disturbing the drive during its 
work. In the meantime the message "Record" has changed to indicate 
the second data record even though only one has been input Simple, if 
an entry was found in a previously unused data record, it is stored and a 
switch occurs at the same time to the next data record to make fluid 
input of data possible. If a previous data record is made available for 
change by the pressing of the <Return> key, no switching occurs. 
Since the first data record was input, it was stored and after pressing the 
<Retum> key, input of data can proceed. Input the names of a few more 
friends so that you can practice using Mini Data. 

Next let's examine the function of the cursor keys more closely. 

first data record 
Previous data record <= It =» next data record 

Pressing the <Cursor up> key displays the first data record of the 
current file. The <Cursor left> and <right> keys switch to the previous 
or next record. The <Cursor down> key has no significance. These three 
cursor keys are well suited for "paging" through a file. 

Sorting files Interested in sorting the file alphabetically? Simply press the F8 key 
and immediately a prompt appears which asks according to which crite- 
ria. The number which is in front of the desired template field should be 
input. Entering the number and pressing the <Return> key sets the 
entire process in motion. This function requires at least 40 seconds (to 
infinity, depending on the file length). This is dependent on the disk- 
oriented processing of Mini Data, but assures 100% data security during 
a system crash (which hopefully will never occur). The drive should 
stop after sorting and the first data set of the newly sorted file is 
displayed. 

Nearly all functions of Mini Data have been explained, except searching 
and the two print options "print record" and "print file", which use the 
printer settings in Preferences and are self explanatory. The search 
routine requires you to enter the search critera and then the file is 
searched for all matches. A program which is easy to learn and which is 
useful. What more can you ask for? 
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4.4 AmigaBASIC improvements 



Since we have discussed some material that was rather hard to digest, 
two special delicacies will be served for the final portion of this BASIC 
section. First: access to the CL I from AmigaBASIC and second: 
reading the disk directory. The Merge example which we promised you 
earlier completes the chapter. 

The listing of Program 4 which permits direct access to the CLI from 
BASIC starts the section: 

Program 4: 'Program 4: 

DECLARE FUNCTION xOpenS LIBRARY 
DECLARE FUNCTION Executes LIBRARY 

LIBRARY "dos. library" 

NewCommand : 

INPUT "1>"; Command$ 

Reaction: 

Command$=Command$+CHR$ (0) 

Display$="CON:0/0/640/200/CLI-Basic"+CHR$<0) 

REM PAL screens can use 

REM Display$="CON:0/0/640/256/CLI-Basic"+CHR$<0) ■ 

connectionS=xOpen£ (SADD (Display$) , 1006) 

extraS=ExecuteS (SADD (Command$) , 0, connections) 

FOR i=l TO 20000: NEXT i 

CALL xClose (connections) 

INPUT "more (y) ";w$ 

IF w$="y" THEN NewCommand 

LIBRARY CLOSE 

END 

Those who have examined AmigaBASIC more closely are familiar with 
the Library command which permits use of the Amiga System libraries. 
This command is in this program so the dos.bmap file must be accessi- 
ble on disk. 

Certain expressions are declared as functions (DECLARE FUNCTION). 
The DOS operating system library is then opened with "dos.library" 
which controls among other things, the processing of CLI commands. 
After a brief interrogation of the desired CLI command (in Commands) 
the actual processing procedure occurs. To mark the end of the 
command sequence which was input, a CHR$(0) is attached to the 
variable. Next parameters are passed which open the CLI window. 
These have a fixed format just like most system routine accesses from 
BASIC. The values for width, height and the name of the window can 
be changed at will in the Displays variable. 
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The heart of the program is in the following line: 

extraS=ExecuteS (SADD (Command$) ,0, connections) 

The CLI command which was input previously is passed directly to the 
DOS library for processing. When the process is finished, the library is 
closed again (LIBRARY CLOSE). 

Now some practical applications. A few examples are presented which 
demonstrate what can be done with CLI BASIC. For example "dir" can 
be used to display the directory of a disk (how dull). But wait, there's 
more! Basically nearly all CLI commands can be accessed from the 
CLI user interface. Commands which are not directly addressable are 
those which require an input from the user. A good example is the 
Setdate command. Programs cannot be started with RUN because this 
confuses the Amiga and sometimes causes a "Guru meditation." 

An interesting example is opening a new CLI window with Newcli in 
which all commands can be executed correctly. It's now possible to 
start programs which are independent of AmigaBASIC. However, 
control through AmigaBASIC is no longer possible and return to the 
normal BASIC level is only possible with an EndCLI. In this manner 
work with the CLI and AmigaBASIC can be done in parallel. 

The Info command should not be forgotten. It provides a complete 
overview of the disk. With the List command more detailed information 
can be obtained such as the length of the files. 

The pseudo CLI can be used for many things, from setting the system 
time (NewCLI-Setdate-EndCLI), to copying of titles or erasing them 
(copy/delete), installing a RAM disk (dir ram:) or displaying the 
directory of a disk (dir dfO:) quickly. 

Bear in mind the following: The current directory must contain the 
dos.bmap file and the CLI commands, such as dir, NewCLI, EndCLI, 
Delete, Copy, etc. must be located in the C directory. 
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4 . 5 Reading a directory from 

BASIC 



The directory of any disk can be read directly from BASIC with this 
program. 

Program 5: "Program 5: 

DECLARE FUNCTION Examines LIBRARY 
DECLARE FUNCTION ExNextS LIBRARY 
DECLARE FUNCTION Locks LIBRARY 
DECLARE FUNCTION AllocMemS LIBRARY 
DECLARE FUNCTION IoErrS LIBRARY 

LIBRARY "exec. library" 
LIBRARY "dos. library" 

more2 : 

INPUT "Directory ";Dir$ 

Hello%=-2 

Dir$=Dir$+CHR$(0) 

bytess=252 

lock2s=Lock£(SADD(Dir$),Hello%) 

optS=2 A l+2 A 16 

infoS=AllocMemS (bytesS,optS) 

sucS=Examines (lock2s, infos) 

more: 

DirNameS=infoS+8 

FOR search=0 TO 29 

check=PEEK(DirNameS+search) 

IF checkoO THEN 

check$=check$+CHR$ (check) 
ELSE 

search=29 
END IF 
NEXT search 

DirName$=check$ : check$="" 
protS=PEEKL(infoS+116) 

IF protSOO THEN 

IF (protS AND 2 A 3)<>0 THEN prot$=prot$+"read " 
IF (protS AND 2*2) <>0 THEN prot$=prot$+"write " 
IF (protS AND 2*1)00 THEN prot$=prot$+"Execute " 
IF (protS AND 2*0) <>0 THEN prot$=prot$+"erase " 
DirProt$=LEFT$(prot$,LEN(prot$)-l) 
prot$="d" 

END IF 
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typeS=PEEKL (inf oS+120) 
IF types <0 THEN 

DirType$="File" 
ELSEIF counter%=0 THEN 

DirType$="Directory" 
ELSE 

DirType$="Directory" 
END IF 

DirSizeS=PEEKL(infoS+124) 
DirBlks&=PEEKL(info«+128) 

FOR search=0 TO 79 
check=PEEK(info&+144+search) 
IF checkoO THEN 

check$=check$+CHR$ (check) 
ELSE 

search=79 
END IF 
NEXT search 

DirComm$=check$:check$="" 
sucs=ExNextS (lock2S, infos) 
IF sucs=0 THEN CLS:GOTO more2 

CLS 
LOCATE 5,3 

COLOR 3:PRINT DirName$; : COLOR 1 

PRINT " is a "; 

COLOR 3: PRINT DirType$; : COLOR 1: PRINT "." 

IF DirType$="Directory" THEN pause 

PRINT " Following Protect -Options are used:" 

PRINT:COLOR 2:PRINT " ";DirProt$ :COLOR .1 

pause: 

PRINT :PRINT " Continue => Key New Dir => q" 

pause2: 

a$=INKEY$:lF a$="" THEN pause2 

IF a$="q" THEN CLS: GOTO more2 

GOTO more 

As in the Pseudo CLI, the Library command is used here to access the 
operating system routines. The functions of the program are easily 
explained. After the start the directory to be listed (for example dfO:) is 
read. The File type and the Protect mode of the files are output. The 
exe.bmap and dos.bmap files must be in the current directory. 
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4 . 6 MERGE 



The capabilities of the MERGE command will be explained in this 
section. A simple example program has been selected for this task to 
illustrate MERGE clearly. The MERGE command does not occur in the 
program itself, it would not be efficient in a program of this size. First 
let's examine the listing: 



Program 6: "Program 6: 

•MiniBase VI. 



REM ON ERROR GOTO Problem 

SCREEN 1,320,200,4,1 

WINDOW l,"Minl Base VI. 0",, 0,1 

DIM Entry (12) 
PALETTE 0,0,0,0 

PALETTE 1,0,0,0 
PALETTE 2,1,1,1 
COLOR 2,0 

INPUT "Data is (D)Data Statements or (I) Input ";a$ 
IF UCASE$(a$)="Q" THEN Ende 
IF UCASE$(a$)="D" THEN 

FOR 1=1 TO 12 

READ Entry (i) 

NEXT i 

GOTO BarChart 
END IF 

DataEntry: 

CLS 

PRINT "Input :" 

PRINT 

FOR 1=1 TO 12 

RepeatEntry : 

PRINT "Value Nr.";i; 

INPUT Entry (i) 

IF Entry (i)=-l THEN Ende 

IF Entry (i)<0 OR Entry (i)>20 THEN PRINT "False input; 

repeat. . ." :GOTO RepeatEntry 



NEXT i 

BarChart : 

CLS 

FOR 1=1 TO 12 

COLOR 1,3+i 
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FOR r=l TO Entry (i) 

LOCATE 23-r,i*3: PRINT " " 

NEXT r 

COLOR 2,0:LOCATE 23-r-l, i*3-l :PRINT Entry(i) 

NEXT i 

a$="" 

LOCATE 23, 9: INPUT " (S) ave or (N)ew ";a$ 
IF UCASE$(a$)="Q" THEN Ende 
IF OCASE$(a$)="S" THEN 

REM LOCATE 23,9:PRINT SPACE$<16); 

LOCATE 23,9:INPOT "Filename ";file$ 

OPEN file$ FOR OUTPUT AS #1 

PRINT #l,"EnteredData:";CHR$(13) 

FOR i=l TO 12 

PRINT #1,"DATA ";Entry (i) ;CHR$ (13) 

NEXT i 

CLOSE #1 
END IF 

GOTO DataEntry 



Problem: 

IF ERR=4 THEN 
CLS 

PRINT "No Data available 
WHILE INKEY$="":WEND 
ON ERROR GOTO ERROR 
RESUME DataEntry 

END IF 

END 



[Key]" 



A description 



Ende: 

WINDOW CLOSE 1 
SCREEN CLOSE 1 
END 

To relieve the user of a typing chore, this program is also included in 
the BASIC drawer of die optional disk for this book. 

MiniBase is a small graphic calculation program, which displays the 
values input as a bar graph on the screen and saves them. 

After starting the program a prompt asks whether the data exists as data 
lines at the end of the program or if it should be input. Now either 
press the <Return> key or press <I> <Return>. 

The number of data has been set at 12 data items. If less are input, the 
prompt can be answered with a Return. To change the number of items 
possible do the following: Every place where the number 12 occurs, 
substitute the number of items you want to input 
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The maximum size of the data to be input is 20. Only whole numbers 
(without a decimal point) can be used. When the last number has been 
input, the bar chart with its values is constructed on the screen. You are 
then asked if the data should be stored as a file, or if new data is input 
The new input erases the old data. An <s> is input for saving the data. 
After the drive has finished running, the program returns to Input mode. 
To terminate the program, press <Ctrl><C>, input -1 in Input mode or 
a <q> for Quit during all other prompts. 

The MERGE command can be used to append the saved data to the 
program. 
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5 . AmigaDOS 



The operating system of the Amiga is partitioned into various hierar- 
chical levels. The lowest level is the individual device drivers, for 
example the disk drive, the serial interface, the keyboard and the screen 
(Console). This low level offers only limited capabilities. Normally the 
transfer rate is in IK increments from the computer to a device and vice 
versa. 

No user will accept this slow rate. A disk directory at this rate would 
take hours! AmigaDOS is responsible for the upper level of the operat- 
ing system All threads of the individual devices come together here. 
For example, it is possible to redirect a task which normally would 
have been displayed on screen to the printer or a file. 

AmigaDOS cannot only handle the devices, but it also controls the 
CLI. This part of AmigaDOS is less interesting for the user since this 
book deals with the disk. But even in this area AmigaDOS can offer a 
few features. 
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5 . 1 BCPL-variables under 

AmigaDOS 

AmigaDOS, like most of the system software of the Amiga, was 
developed in BCPL. BCPL is a predecessor of the widely available C 
programming language and has some peculiarities which must be 
observed while programming in C. 

The user who has looked at the Include files of the C compiler may 
have already noticed some peculiar variable types. These are the vari- 
ables of BCPL which were translated into C: 

BPTR = BCPL-Pointer 
BSTR = BCPL-String 

The BPTR is a pointer into the memory of the Amiga just like a C 
pointer. The BCPL pointer only points to memory addresses which are 
divisible by 4. It counts in long words (32 bits) instead of bytes (8 bit). 
In the real world the conversion from C pointers (for example APTR) 
to BCPL appears as follows: 

BCPL = APTR / 4 (APTR must be completely divisible by 4 ! ) 
APTR = BCPL * 4 

The Include file "libraries/dos.h" contains a helpful conversion routine. 
It shifts the bits of the BPTR to the left by two and thus multiplies it 
by 4. 

typedef long BPTR; 

typedef long BSTR; 

#define BADDR( bptr ) ( ( (OLONG)bptr) «2) 

Osage: APTR = BADDR( BPTR ) 

The BCPL string BSTR works just like the BPTR in the long word 
format. It is a pointer to a series of bytes which contain character codes. 
Unlike C, the first byte of the BCPL string contains the length of the 
character string instead of the first character. This is followed by the 
actual characters. 
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5 . 2 Internal organization of 

AmigaDOS 



AmigaDOS is a library, like all parts of the Amiga operating system. 
However for C programs AmigaDOS has a special library. It doesn't 
have to be opened like the Intuition library before using it in programs. 
The opening is performed by the initialization routine which is 
automatically linked to each C program. The base pointer of the library 
is then stored in the global variable DOSBase. 

Below the DOSBase address (with smaller addresses) are the addresses of 
the individual DOS routines as in any library. Starting with positive 
offsets from the DOSBase (addresses larger than the DOSBase) the data 
area of the DOS library can be reached. This is a structure containing 
the pointers to all additional internal data of AmigaDOS: 

struct DosLibrary { 

struct Library dl_lib; 



APTR 


dl Root; 


APTR 


dl GV; 


LONG 


dl A2; 


LONG 


dl A5; 


LONG 


dl A6; 



}; 

The only interesting entry is "dl_Root". It points to another structure, 
the"RootNode": 

struct RootNode { 

BPTR rn_TaskArray; 

BPTR rn_ConsoleSegment; 
struct DateStamp rn_Time; 

LONG rn_RestartSeg; 

BPTR rn_Info; 

BPTR rn_FileHandlerSegment; 
); 

Most of the entries of this structure are used for tasks which Amiga- 
DOS performs outside the I/O control (CLI etc.). 

The pointer in "rn_Info" is important. It points to the DOS Info struc- 
ture which has the following structure: 



struct Doslnfo { 




BPTR 


di McName; 


BPTR 


di Devlnfo; 


BPTR 


di Devices; 


BPTR 


di Handlers; 


APTR 

}; 


di_NetHand; 
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This structure is the key to all devices known to AmigaDOS. In 
Version 1.2 of AmigaDOS only the diDevInfo entry is occupied. Here 
we find another pointer which points to another structure. 

struct DeviceNode { 

BPTR dn_Next; 

ULONG dn_Type; 

struct MsgPort *dn_Task; 

BPTR dn_Lock; 

BSTR dn_Handler; 

ULONG dn_StackSize; 

LONG dn_Prior±ty; 

BPTR dn_Startup; 

BPTR dn_SegList; 

BPTR dn_GlobalVec; 

BSTR dn_Name; 
); 

This type of structure exists for every mounted device (for example 
PAR for the parallel interface). The first entry "dnNext" always points 
to the next DeviceNode structure. The last structure which cannot point 
to another one, contains a null. 

AmigaDOS controls not only the individual devices with this structure. 
Disks (volumes) and directories can be declared as pseudo devices in mis 
manner. The CLI command Assign can use this list to make the C 
directory of the Workbench disk into a logical device. 

The device in question is listed in "dn_Type". It can assume the 
following values: 

#define DLT_DEVICE OL 
♦define DLT_DIRECTORY 1L 
♦define DLT_VOLUME 2L 

For the type "DTL_VOLUME" there is another modified form of the 
DeviceNode structure: 

struct DeviceList { 

BPTR dl_Next; 

LONG dlJType; 

struct MsgPort *dl_Task; 

BPTR dl_Lock; 

struct DateStamp dl_VolumeDate; 

BPTR dl_LockList; 

LONG dl_DiskType; 

LONG dl_unused; 

BSTR *dl_Name; 
}; 

Of interest here is the dl_Lock or the dn_Lock entry. It again points to 
an entire list of structures. For every file of a disk one Lock structure 
can exist 
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One function of Lock is to prevent, for example, two parallel executing 
tasks writing to the same file at the same time. This would lead to 
chaos! If a task is currently writing to a file, a Lock structure marks it 
so no other task can access this file until writing has been completed. 
More on this in the next section. 

The following example program outputs all devices which are registered 
in AmigaDOS. It determines the RootNode structure using the DOS 
base address and climbs through the previously mentioned structures to 
the first DeviceList Since the structures are connected with each other 
through the BCPL pointer they must first be converted with BADDR() 
into C pointers. Then the program uses a while loop to read the 
pointers for all DeviceList or DeviceNode structures. The type and name 
for every device is output. Since the name is a BCPL string, it must be 
converted with "printf ' into a C string before output 

/* */ 

/* ASSIGN-Function for AmigaDOS */ 

/* */ 

/* JEA, 18-08-87 */ 

/* */ 

♦include <libraries/dos.h> 
♦include <libraries/dosextens.h> 
♦include <libraries/filehandler.h> 

extern struct DosLibrary *DOSBase; 

UBYTE *dtl_types[] = { 

"Device : ", 

"Directory: ", 

"Volume : " 

}; 

/* */ 

/* Convert BSTR into C-String */ 

/* */ 

/* */ 



*/ 



BstrC( bstr, buf ) 

BSTR *bstr; 

UBYTE *buf; 

{ 

UBYTE *str; 

LONG loop; 

LONG counter; 

counter =0; 

str = (UBYTE*) BADDR( bstr ); 
for( loop = (LONG) str[0]; loop — ; ++counter) { 
buf [counter] = str [counter+1] ; 

} 

buf [counter] = 0; 

) 

/* */ 

/* output BPTR-String */ 

/* */ 

/* */ 

/* */ 

BstrOut( bstr ) 
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BSTR *bstr; 

{ 

UBYTE buf [80]; 

BstrC( bstr, buf ); 
printf( buf ); 



Output ASSIGN Entries 



/* 

/* 
/* 
/* 
/* _ 

FindeAssignO 

{ 

struct RootNode *rootnode; 

struct Doslnfo *dosinfo; 

struct DeviceList *devicelist; 

struct FileLock *filelock; 



*/ 

*/ 

*/ 

*/ 

— */ 



rootnode = (struct RootNode*) DOSBase->dl_Root; 
dosinfo = (struct Doslnfo*) BADDR( rootnode->rn_Info ); 
devicelist = (struct DeviceList*) BADDR( dosinfo->di_DevInfo ); 
while ( devicelist->dl_Next ) { 

printf( dtl_types[devicelist->dl_Type] ); 
BstrOut( devicelist->dl_Name ); 
printf( "\n" ); 
devicelist = (struct DeviceList*) BADDR( devicelist->dl Next ); 

} 
} 

/* 

/* 

/* 

/* 

/* 

main() 
{ 

FindeAssignO ; 

) 



Main program 
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5.3 The functions of AmigaDOS 



AmigaDOS has a set of 23 routines which permit control of the 
devices. These file handling routines are easy to program because of 
their high level in the operating system. On this level, as already 
mentioned, all devices are treated equally. The following program reads 
a file and outputs it to the screen. Some DOS functions are used which 
are explained at the end of the program. The program shows that it is 
easy for DOS to address various output devices such as the drive and 
screen display. 

/* */ 

/* Call of the DOS-Functions */ 
/* */ 
/* JEA, 18-08-87 */ 
/* */ 

Sinclude <exec/exec.h> 
#include <libraries/dos.h> 
#include <libraries/dosextens.h> 
Sinclude <libraries/f ilehandler .h> 
#include <stdio.h> 

char *error_strs[] = { 
"ERROR_NO_DEFAULT_DIR: 201", 
"ERROR_OBJECT_IN_USE: 202", 
"ERROR_OBJECT_EXISTS: 203", 
"ERROR_DIR_NOT_FOUND : 204", 
"ERROR_OBJECT_NOT_FOUND: 205", 
"ERROR_BAD_STREAM_NAME: 206", 
"ERROR_OBJECT_TOO_LARGE: 207", 
"ERROR_ACTION_NOT_KNOWN: 209", 
"ERROR_INVALID_COMPONENT_NAME: 210", 
"ERROR_INVALID_LOCK: 211", 
"ERROR_OBJECT_WRONG_TYPE : 212", 
"ERROR_DISK_NOT_VALIDATED: 213", 
"ERROR_DISK_WRITE_PROTECTED: 214", 
"ERROR_RENAME_ACROSS_DEVICES: 215", 
"ERROR_DIRECTORY_NOT_EMPTY: 216", 
"ERROR_TOO_MANY_LEVELS: 217", 
"ERROR_DEVICE_NOT_MOONTED: 218", 
"ERROR_SEEK_ERROR: 219", 
"ERROR_COMMENT_TOO_BIG: 220", 
"ERROR_DISK_FOLL: 221", 
"ERROR_DELETE_PROTECTED: 222", 
"ERROR_WRITE_PROTECTED: 223", 
"ERROR_READ_PROTECTED : 224", 
"ERROR_NOT_A_DOS_DISK: 225", 
"ERROR_NO_DISK: 226" 
>; 
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/* 

/* 

/* AmigaDOS Error-Text output 

/* */ 

/* v 

iong 

get_error() 

{ 

:LONG error; 

error = IoErrO ; 

if( error < 120 ) { 
switch ( error ) { 
case 000: 

printf ( "All 0K!\n" ); 

break; 
case 103: 

printf( n ERROR_NO_FREE_STORE: 103 \n n ); 

break; 
case 105: 

printf( "ERROR_TASK_TAB^_F0LL: 105\n" ); 

break; 
case 120: 

printf( "ERROR_LINE_TOO_LONG: 120 \n" ); 

break; 
case 121: 

printf( "ERROR_FILE_NOT_OBJECT: 121\n n ); 

break; 
case 122: 

printf( "ERROR_INVALID_RESIDENT_LIBRARY: 122\n" ); 

break; 
case 232: 

printf( "ERROR_NO_MORE_EMTRIES: 232\n" ); 

break; 
) 
} 
else{ 

printf ( "%s\n", error_strs [error-201] ) ; 
} 

return ( error ) ; 
} 

/* * 7 

/* Type */ 

/* */ 

/* */ 

/* v 

type( filename ) 

UBYTE *filename; 

{ 

struct FileHandle *handle; 

struct FileHandle *0pen(); 

UBYTE buf ; 

IONG read_length; 

handle =■ Open( filename, M0DE_OLDFILE ); 

if( handle ){ 
do{ 

read_length = Read( handle, Sbuf, 1L ); 
printf ( "%c", buf ); 
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) 

while ( read_length ) ; 
Close ( handle ) ; 

} 
else{ 

get_error() ; 
} 
) 



/* 

*/ 

/* Main program 

/* " */ 

/* */ 

/* */ 

main( arg_num, args ) 
int arg_num; 
char *args[]; 
< 

if ( arg_num > 1 ) 

type( args[l] ); 
else 

printf( "A file name is required! \n" ); 
} 
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5 . 4 DOS functions 



In. this chapter all DOS functions, offsets and the registers in which die 
various parameters must be passed are discussed. 



5.4.1 General Input/Output functions 



Open Handle = Open (Name, Mode) 

DO -30 Dl D2 

Opens a file 

Opens the file to which Dl points. Text must be terminated with a null 
byte. 

The Mode in D2 can be Mode_readwrite (1004 for DOS 1.2) for input/ 
output, Mode_old (1005) for input from or Mode_new (1006) for 
output to the file. 

In DO a pointer to the File Handle structure is returned, or a null when 
the function could not be performed. The File Handle structure has the 
following format: 



Offset 


Name 


Significance 





Link 


Unused. 


4 


Interact 


If <>0, the file is interactive. 


8 


ID 


Identification number of the file. 


12 


Buffer 


Pointer to internal storage needed. 


16 


CharPos 


Pointer required internally. 


20 


BufEnd 


Pointer required internally. 


24 


ReadFunc 


Pointer to routine which is called when 
buffer is empty. 


28 


WriteFunc 


Pointer to routine which is called when 
buffer is full. 


32 


CloseFunc 


Pointer to routine which is called during 
closing of the file. 


36 


Argumentl 




40 


Argument2 


File type dependent arguments. 



Most entries are provided for the internal usage of AmigaDOS. These 
values should not be manipulated. 
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Close Close ( Handle ) 

-36 Dl 

Closes a file 

Closes the file which was opened with the Open command. The pointer 
passed in Dl is the pointer from the Open command to the File Handle 
structure. 

Read Number = Read ( Handle, Buffer, Length ) 

DO -42 Dl D2 D3 

Reads data 

Reads bytes from the file specified by the Handle up to the Length into 
the memory starting at address Buffer. 

The value returned in DO indicates the number of bytes actually read. If 
this number is 0, the end of the file was reached. If an error occurred, -1 
is returned. 

Write Number = Write ( Handle, Buffer, Length ) 

DO -48 Dl D2 D3 

Writes data 

Writes the number of bytes as specified in Length in the file specified 
by Handle from memory, starting at address Buffer. 

The number of bytes actually written is returned in DO. If this value is 
-1, an error occurred. 

Seek Position = Seek ( Handle, Interval, Mode ) 
DO -66 Dl D2 D3 

Moves file pointer 

This function moves the internal pointer in the file specified by Handle. 
The Mode determines if the value in the Interval should move the 
pointer relative to the beginning of the file or the end of the file. This 
value is calculated according to the preceding sign so that it can also be 
moved backwards. 

The possible modes are: OFFSET_BEGINNING -1 

OFFSET_CURRENT 
OFFSET_END 1 

The return value indicates the current position of the pointer after the 
execution of the function. To determine the position of the pointer at 
the moment, the Mode relative to the position (OFFSETCURRENT) 
can be set and moved by OK: the position returned is equal to the old 
position. 
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Input 



Output 



WaitForChar 



Handle = Input () 
DO -54 

Determines standard input channel 

This function determines the Handle of the channel from which the 
standard input can be read. If the program was called from the CLI this 
is the Handle of the CLI window. If the CLI command which called 
the program used the Data redirection capability, the handle of the 
channel selected is found. An example: 

>Programname < DFO : Filename 

Input, resulting from the Read command, to the program comes from 
the file named Filename. 

Handle = Output ( ) 

Determines standard output channel 

This function determines the Handle of the channel where the standard 
output can be written. If the program was called from the CLI this is 
the Handle of the CLI window. Here also the standard output can be 
redirected. 

>Programname > PRT: 

The standard output of the calling program is sent to the printer. 

Status = WaitForChar ( Handle, Timeout ) 
DO -204 Dl D2 

Waits for a character 

This function waits the number of microseconds indicated in Timeout 
for the character from the channel specified in the Handle (for example 
the RAW: window). If during this time a character isn't received, a is 
returned in Status, otherwise the value -1. The character can be read 
with the Read function. 

The function is only available if the channel is an interactive channel 
(interactive terminal), for example a RAW: window, in which input and 
output can occur at the same time and data are not necessarily required 
immediately. 
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Islnteractive 



IoErr 



Status = Islnteractive ( Handle ) 
DO -216 Dl 

Determines channel type 

True (-1) is returned in the Status if the channel specified by the Handle 
is an interactive terminal which can handle input and output. Otherwise 
False (0) is returned. 

Error = IoErr () 
DO -132 



Determines Input/Output error 

An error is reported after the call of a function by a null as the return 
value in DO (usally). The exact error message can be determined by 
calling IoErr. DO contains the number of the error which occurred (see 
the Why command of the CLI). 

A listing of the error values can be found in the next section. 



5.4.2 



Disk operations 



CreateDir Lock = CreateDir ( Name ) 

DO -120 Dl 

Creates a sub-directory 

A sub-directory is created named Name in the current directory. The 
return value sets a pointer to a file structure (Lock) which has the 
following format: 



Offset 



Name 



Meaning 



NextBlock Pointer to next connected Lock or Null. 

4 DiskBlock Block-Nr. of the directory or file header. 

8 AccessType Access type: -1= excl. access, -2= general 

access. 
12 ProcesslD Identification number. 

16 VolNode Pointer to disk information. 

This structure represents the key to this file or the sub-directory because 
it can be accessed with it (see the Makedir command of the CLI). 
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Lock 



CurrentDir 



ParentDir 



DeleteFile 



Rename 



lock = Lock ( Name, Mode ) 
DO -84 Dl D2 

Finds a file key 

Find a file or a sub-directory with the name Name on the disk and create 
a structure. Hie Mode determines what type of access can occur on this 
file. If it is reading (-2), several tasks can be read from this file. If it is 
writing, (-1), only this program can write into the file. 

oldLock = CurrentDir ( Lock ) 
DO -126 Dl 

Elevate sub directory to current directory 

The sub-directory specified by Lock is elevated to the current directory 
(see the CD command of the CLI). 

The value returned represents the pointer to the previous directory, the 
Lock. 

Lock_neu = ParentDir ( Lock ) 
DO -210 Dl 

Determines the highest level directory 

The directory indicated by Lock is determined and its Lock is returned in 
DO. If Lock already belongs to the highest directory (Root directory), a 
null is returned in DO. 

Status = DeleteFile ( Name ) 
DO -72 Dl 

Deletes a file 

The file with the indicated name is deleted. The name must be text 
which is terminated with a null byte. An error message is returned in 
DO if the function could not be performed (for example, file not present, 
file write protected, directory not empty). 

If a sub-directory is indicated for deletion, no entries can still be present 
in the sub-directory. 

Status = Rename ( Name_old, Name_new ) 
DO -78 Dl D2 

Renames a file 

The file or directory with the name provided in "Nameold" is renamed. 
If a file with that name already exists, the operation is interrupted and 
an error indication is returned. 
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DupLock 



The two name indications can also contain paths. In this case the file is 
brought from the old directory into the new directory with the new 
name. This can only be done on the same disk. 

newLock = DupLock ( Lock ) 
DO -96 Dl 



Copies a lock 

The old Lock structure is copied into a new structure. DO then points to 
the new structure. This can be used if several processes should access 
this file. No Lock can be copied if it's only authorized for writing since 
it is already authorized for an exclusive access. 

UnLock UnLock ( Lock ) 

-90 Dl 

Removes a loch 

The Lock structure which was created with Lock, DupLock or 
CreateDir, is removed and the memory occupied is released again. 

Examine Status = Examine ( Lock, InfoBlock ) 
DO -102 Dl D2 

Gets file information 

The structure to which D2 points is filled with information about the 
file specified. This structure is called FilelnfoBlock and appears as 
follows: 



Offset 


Name 


Description 





DiskKey-L 


Disk number. 


4 


DirEntryTypei 


Entry type (+=Directory, -=file). 


8 


FileName 108 


Bytes with the filename. 


116 


Protection^ 


File protected? 


120 


EntryTypeX 


Entry type. 


124 


Sizel 


File length in bytes. 


128 


NumBlocksX. 


Number of blocks occupied. 


132 


Daysi 


Creation date. 


136 


MinuteJL 


Creation time. 


140 


Ticki 


Creation time. 


144 


Comment 1 16 


Bytes with comments. 



DO contains a if the function could not be performed. 
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ExNext 



Status = ExNext ( Lock, InfoBlock ) 
DO -108 Dl D2 

Determines the next directory entry 

The InfoBlock filled with Examine and the Lock of the selected directo- 
ries is passed to this function. The information of the first suitable 
entry from this directory is entered into the InfoBlock. During another 
call of ExNext, a search is made for the next entry of this directory and 
its information is returned. If a further entry cannot be found, or an error 
has occurred, a null is returned in DO. The table of contents of a disk 
can be read with the Lock, Examine and ExNext commands. 

The path is as follows: 

1.) The key to the desired directory is created with Lock. 



2.) The directory name or the name of the disk can be determined 
with Examine. At the same time the FilelnfoBlock is created 
which is necessary for the next function. 

3.) The individual entries in the directory are read with repeated calls 
of the ExNext function. This information is entered into the 
FilelnfoBlock. This is repeated until the ExNext function returns 
a null. At that point no additional entries are available! 

Following is a small machine language subroutine which completes 
these steps. The Print routine that is called is not presented here. It 
could for example print the name and length of file just read to the 
screen. 

Before the call of this routine the DOS library must be opened and the 
DOS base address must be stored in "dosbase." 

Lock = -84 
Examine = -102 
ExNext = -108 



IoErr 



-132 



directory: 




move . 1 


dosbase, a6 


move . 1 


#name,dl 


move . 1 


#-2,d2 


jsr 


Lock (a6) 


tst.l 


dO 


beq 


Error 


move . 1 


dO, locksav 


move . 1 


dosbase, a6 


move . 1 


locksav, dl 


move . 1 


#fileinfo,d2 



;* Table of Content of DFO: 

; DOS-Base address in A6 

/pointer to Path-/Filename 

,-Mode "Read" 

/search for file 

/ found ? 

;no ! 

; otherwise save key 

; DOS-Base address 

;Key in Dl 

/pointer to FilelnfoBlock 
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jsr Examine (a6) 

tst . 1 dO 

beq error 

bra output 



loop: 



move . . 
move . 
move . 
jsr 
tst.l 
beq 

output : 
bsr 
bra 



move. 

jsr 

rts 



dosbase, a6 

locksav, dl 

#fileinfo,d2 

ExNext(a6) 

dO 

error 



Print 
loop 



dosbase, a6 
IoErr (a6) 



;Get Disk-Name 

;OK? 

;no (occurs rarely) 

/otherwise output Name 

;* Read Filenames 

/DOS-Base address 

;Key in Dl 

/pointer to FilelnfoBlock 

/search for next file 

/found ? 

/no: End 

/* Output Name 

/Output /evaluate Name etc. 

/and continue . . . 

/* Determine I/O-Status 
/DOS-Base address in A6 
/Get Status 
/End. . . 



name: dc.b 'DFO:'^ 

align 
locksav: blk.l 
fileinfo: blk.l 260 

end 



/ some assembler use even 



Info 



After termination of this routine an error code which was determined by 
the IoErr function is returned in DO. This code should be 232 
(no_more_entries) or something went wrong. 

Status = Info ( Lock, InfoData ) 
DO -104 Dl D2 



Gets disk information 

The parameter block, to which D2 points, is filled with information 
about the disk in use. This block must start at an address which is 
divisible by four (longword aligned). 

Lock must fit the disk, a file or a subdirectory of this disk. 



The parameter block InfoData 
Offset Name 



has the following format 
Description 






NumSoftErrors 


4 


UnkNumber 


8 


DiskState 


12 


NumBlocks 


16 


NumBlocksUsed 


20 


BytesPerBlock 


24 


DiskType 


28 


VokuneNode 


32 


InUse 



Number of disk errors. 
Installed disk drive. 
Disk status (see below). 
Number of blocks on the disk. 
Number of blocks used. 
Number of bytes per block. 
Disk type (see below). 
Pointer to disk name. 
oO, if disk is active. 
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SetComment 



SetProtection 



DiskState shows the status of the disk. The possible results are: 

80 Disk is write protected 

81 Disk is under repair (validating). 

82 Disk OK and can be written. 

DiskType contains the disk type as text is inserted. The possible values 
are: 

-1 No disk inserted. 

BAD Disk not readable (wrong Format). 

DOS DOS disk. 

NDOS Format OK, but not a DOS disk. 

KICK Kickstartdisk. 

Status = SetComment ( Name, Comment ) 
DO 180 Dl D2 

Sets a file comment 

The file or the sub-directory Name is given a comment The comment 
can be up to 80 characters in length and must terminate with a null 
byte. 

Status = SetProtection ( Name, Maske ) 
DO -186 Dl D2 

Sets the file status 

The write or read Status of the file indicated, or of the sub-directory is 
set. The lower 4 bits of the mask have the following significance: 

Bit Significance when set 

file not erasable 

1 not executable 

2 not to be overwritten 

3 not readable 



5.4.3 



Process processing 



CreateProc Process = CreateProc (Name, Pri, Segment, Stack) 

DO -138 Dl D2 D3 D4 

Creates a new process 

A new Process structure is created under the name to which Dl points. 
This process runs under the priority indicated in Pri and gets a Stack of 
the size specified in Stack. 
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DateStamp 



A pointer to the Segment list is passed in Segment (see also LoadSeg), 
in which the program code to be started is defined. The program should 
start in the first segment of the list. 

The result of the function is the new Process ID or a 0, if an error 
occurred 

DateStamp ( Vector ) 
-192 Dl 



Delay 



DeviceProc 



Exit 



Determines the date and time 

In Dl a pointer is returned to a table of three long words. If the time 
was not set in the Amiga all of these long words contain a 0. Otherwise 
the first long word contains the number of days passed since January 
1978, the second the number of minutes passed since midnight, and the 
third the 1/50 seconds elapsed in this minute. This value is always a 
multiple of SO so that the number of seconds *50 is always indicated. 

Delay ( Time ) 
-198 Dl 

Stops the execution of the current process for a short period of time 

The executing process is stopped for the number of 1/50 seconds indi- 
cated in Time. 

Process = DeviceProc ( Name ) 
DO -174 Dl 

Identifies the Process using I/O 

The identification of the process which at this moment uses the Input/ 
Output channel indicated in Name is returned, or a if a process wasn't 
found. 

If the name relates to a channel which is on a disk, a pointer to the 
Lock structure of the corresponding directory can be maintained with the 
IoErr function. 

Exit ( Parameter ) 
-144 Dl 

Terminates a program 

The executing program is terminated. If the program was called from 
the CLI, control is returned to it and the integer value in Parameter is 
interpreted as a return value. If the program was started as Process, this 
process is erased through Exit and the Stack, Segment and Process 
memory used by it is released again. 
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Execute Status = Execute (Command, Input, Output) 

DO -222 Dl D2 D3 

Calls a CLI command 

The CLI commands which are provided in a text file and to which Dl 
points, is executed. With Input and Output the I/O of the CLI 
command can be redirected but their handle must be indicated here. If a 
null is indicated for Input or Output, the standard channel is used. 

LoadSeg Segment = LoadSeg ( Name ) 
DO -150 Dl 

Loads a program file 

The program file Name is loaded into memory. The program can be 
spread over several memory modules if not enough memory space is 
available. The segments thus created are chained together by having the 
first entry of every segment a pointer to the next segment of the list If 
mis pointer is 0, this is the last segment. 

If an error occurs during this process, all previously loaded segments are 
released again and a is returned in DO. Otherwise DO contains a 
pointer to the first segment. 

The loaded program can only be started with CreateProc or erased with 
UnLoadSeg. 

UnLoadSeg ( Segment ) 
-156 Dl 



UnLoadSeg 



GetPacket 



QueuePacket 



Erases a program file which was loaded 

The program file which was loaded with LoadSeg is erased and the 
memory used is released again. The pointer in Dl points to the first 
segment of the list (see LoadSeg). 

Status = GetPacket ( Waitflag ) 
DO -162 Dl 

Gets a packet 

Gets a packet which was sent by another process. If the Waitflag is true 
(-1), a wait occurs for the content of the packet, otherwise no wait 
occurs and a null is returned if a packet isn't available. 

Status = QueuePacket ( Packet ) 
DO -168 Dl 



Sends a packet 

The packet, to which Dl points, is sent. If no error occurs, the value 
<>0 is returned in DO. 
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5 . 5 DOS error messages 

DOS error The following list contains the error codes and their meaning from IoErr 

messages or the Why command of the CLI. 

103 Insufficient free store 

Not enough storage is available. 

104 Task table full 

Already 20 processes are active. No more are permitted. 

120 Argument line invalid or too long 

The argument list for this command is not correct or contains too many 
arguments. 

121 File is not an object module 

The file called is not capable of being executed. 

122 Invalid resident library during load 
The resident library called is invalid. 

202 Object in use 

The indicated file or the directory is being used at this moment by 
another program and is not available for other applications. 

203 Object already exists 

The filename indicated already exists. 

204 Directory not found 

The selected directory does not exist 

205 Object not found 

The channel with the name indicated does not exist 

206 Invalid window 

The parameters for the window to be opened are not correct 
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209 Packet requested type unknown 

The desired function is not possible on the device indicated. 

210 Invalid stream component name 

The filename is invalid (too long or has unauthorized characters). 

21 1 Invalid object lock 

The Lock structure indicated is invalid. 

212 Object not of required type 

File and directory name have been reversed. 

213 Disk not validated 

The disk is either not recognized yet by the system or is defective. 

214 Disk write-protected 

The disk is write protected. 

215 Rename across devices attempted 

The Rename function is possible only within a disk. 
276 Directory not empty 

A directory which is not empty cannot be erased. 

218 Device not mounted 

The selected disk is not mounted. 

219 Seek error 

Seek function with illegal parameters. 

220 Comment too big 

The comment for the file is too large. 
22/ Disk full 

The disk is full or doesn't contain enough free space for the application. 
222 File is protected from deletion 

The file is protected against deletion. 
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223 File is protected from writing 

The file is protected against writing. 

224 File is protected from reading 

The file is protected against reading. With the last three error messages 
the List command can be used to check the status of the affected file. 

225 Not a DOS disk 

This disk was not formatted with AmigaDOS format 

226 No disk in drive 

The drive does not contain a disk. 

232 No more entries in directory 

The last ExNext function could not detect a suitable entry in the 
directory. 
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6. 



File Control 



The 
Filesystem 



Path of data 
access through 
Filesystem 



File control in the Amiga is performed by the Filesystem. The 
Filesystem is a separate task which is addressed by DOS when files 
must be handled (for example programs). 

The Filesystem differentiates to which device file access should be 
directed (for example disk or hard disk) and addresses the device drivers 
to access the selected mass storage. The selection of the devices is not 
important for the use of Filesystem It works with every device capable 
of using data blocks. 

With this method it's possible to interface many different mass storage 
devices provided a suitable device driver is included which can work 
with the Filesystem By using the Filesystem, the system is not tied to 
a certain fixed device for file control and can be enhanced with additional 
devices with little effort. 

If access of a file is needed from a device, the command is normally sent 
first to DOS (for example read program XY from disk). This determines 
that it is a file access and sends the command to the Filesystem. The 
Filesystem then controls access by determining how many blocks from 
which device should be addressed. The commands for writing and read- 
ing of blocks are passed by the Filesystem to the proper device drivers 
which then communicate directly with the hardware. 

An access is a very complicated procedure which unfortunately also 
consumes much time. This disadvantage was accepted by the systems 
developers to keep the system flexible. 

To reduce the speed loss, the Filesystem stores the last blocks read in 
RAM so that during new accesses they can be read from the faster 
RAM. The number of blocks which can be stored in RAM, can be 
enlarged with die CLI command Addbuffers. 
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6 . 1 The disk monitor 



Before examining the various block types which can be found on the 
disk, the use of a disk monitor is discussed. 

The description of the monitor which follows cover the one presented in 
the Appendix of this book. The source file is found in the Appendix. 

The monitor is loaded and started from the optional disk for this book 
using the CLI by entering DiskMon. It accesses the internal drive 
(DFO). If another drive is accessed, it can indicated at the start as a 
parameter in the command line. To access DF1, "DiskMon dfl:" must 
be input for the start 

Due to differences in screen sizes between PAL (Europe) and NTSC 
(US) Amigas, the disk monitor program for the NTSC machines 
displays either the ASCII data or HEX output in the same area. PAL 
systems can display more lines so both ASCII and HEX output may be 
displayed on the screen. The source code contains comments which 
describe the changes required for each system. The optional disk 
contains the NTSC version. 



6.1.1 The commands of the monitor 



The characters enclosed in brackets indicate the keys to be activated ([#] 
for input of the character. #). 

(Esc] Used to leave the monitor. 

[#] The block number to be read can be indicated. The input must be 
in decimal and must always have four digits (for example 0013 
to read block 13). If an incorrect number is indicated, the input 
must be repeated. 

[$] Has the same meaning as [#] with the difference that the block 
number must be input in hexadecimal. 

[+1 The next logical block is loaded and displayed. 

[-] The previous logical block is loaded and displayed. 

[R] The current block is read again (for instance if the disk is 
changed). 



96 



Abacus 5.1 jhe disk monitor 



[W] The block in the buffer is written to disk. 

[C] The checksum of the block is calculated and stored. The sum is 
also displayed. The command is not suitable for the calculation 
of the boot block checksum. 

[A] The cursor jumps into the data display of the block in ASCII and 
permits the editing of the blocks in ASCII. After the word 
buffer, the current cursor position in the block is displayed. A 
quick glance can determine if even or odd addresses are being 
edited. This sub-point is left for the main menu with [Esc]. 

\H\ The display changes to hexadecimal and permits editing of the 
block in bytes. Two characters (1 byte) must always be input. 
Otherwise editing is similar to ASCII. 
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6 . 2 The various block types 



Aside from the blocks containing program data, there are other blocks 
on the disk which mark individual files and connect them with each 
other for better data control. There is also an item called the boot block. 



6.2.1 



The boot block 



Construction 
of the boot 
block 



The boot block is used by the operating system to indicate if the disk 
can be started during initialization like the Workbench disk. The name 
boot block is misleading, since there are actually two blocks. These are 
the lowest two blocks of the disk (block and 1, consisting of 1024K). 
To allow the disk to start, certain data must be written into it by using 
the Install command. 

The boot block can also be used to call machine language programs 
which are executed as soon as the disk is inserted into die internal drive 
(DFO) after a reset. To use this capability fully, it's necessary to under- 
stand how the operating system calls the boot block. This is discussed 
in more detail after we look at the construction of the boot blocks. 

Longword 1 contains: 

The ASCII identification of the disk terminated with null 
(valid only for DOS). 

The ASCII identification can be either for DOS (for a DOS disk) 
or KICK (for a Kickstart disk). 

If the DOS identification cannot be found, the message "No DOS Disk" 
is output. 

Longword 2 contains: 

The checksum of the boot block. 

Longword 3 contains: 

A pointer to the root block (normally $370=880). 
The pointer does not have to be set. 
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Example for the construction of the header for the boot block: 

Identification: dc.b "DOS",0 ;ASCII identification of the disk 
Chksum: del $???????? /Checksum for boot block 
RootBlk: del $00000370 /pointer to Root block 

Starting at the fourth longword (the 12th byte) is the actual boot 
program which is executed when the checksum is correct. Normally the 
following routine is stored here. This can be replaced by the user, 
unless the original one is also executed. This is shown in the documen- 
tation of the boot routine which follows. 

The program which is written by the Install command appears as 
follows: 



BootPrg: 


lea 


Resname (PC) , Al 


/pointer to name of the 
Resident structure 




jsr 


-96 (A6) 


/search Resident structure 




tst.l 


DO 


/test for error 




beq 


Error 


/if an error occurred 




move . 1 


D0,A0 


/pointer to Resident structure 
/after A0 




move . 1 


22(A0),A0 


/pointer to the Initialization 
after A0 




moveq 


#$00, DO 


/clear DO if no error occurred 


Ende: 


rts 




/Return jump to the Boot 
/Routine of ROM 



Following this is a routine which is called if an error occurs (which 
normally should not happen): 



Error: 



Calculating 
the boot block 
checksum 



moveq 
bra 



#$ff,D0 /load DO with $ff (for error) 
Ende /terminate program 



The following bytes contain the name of the desired Resident structure 
(in ASCII): 

Resname: dc.b "dos. library", 

This routine searches for the Resident structure to construct the DOS 
library and passes its base address in A0 to the boot routine in the 
operating system. 

Let's examine the routine which tests the boot block checksum. 

On entry to the routine, the pointer of the boot block which is already 
in RAM, is in A0. First a 256 is written into Dl. This is used as a 
counter for the number of longwords for which the checksum should be 
formed. Since a longword has 4 bytes, there are 4x256 = 1024 bytes, 
which is exactly the length of two disk sectors (in this case and 1). 

fe8al4 move.w #$00ff,Dl 

Then the register which is later used for the addition, is cleared. 

fe8al8 moveq #$00, DO 
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Now a longword from the disk buffer (which contains the boot block) is 
added to DO. 

fe8ala add.l (A0)+,D0 

A test is made for an overflow. If one didn't occurr, a jump occurs to 

$fe8a20. 

fe8alc bcc.s $fe8a20 

If an overflow occurred, it is added to DO. 

fe8ale addq.l #1,D0 

A test is made to see if the whole disk buffer was added and if not, addi- 
tion continues. 

fe8a20 dbf Dl,$fe8ala 

The following command reverses all bits, which means the bits which 
were erased are set and vice versa 

fe8a24 not.l DO 

Finally a test is made if all bits have been erased. If this is not the case, 
the checksum is false and a branch is taken to $fe8a5c to wait for the 
insertion of a bootable disk. 

fe8a26 bne.s $fe8a5c 

The boot checksum is a longword addition with overflow. 



6.2.2 The calculation of the user's boot checksum 



The calculation of the checksum is fairly simple. First the data which 
are stored in the boot block must be prepared as follows: 

Bootbuffer is the label which indicates the start of the user's data buffer. 

Bootbuf fer: 

dc.b "DOS",0 ; DOS-identification 

del ; Checksum 

del $00000370 ; pointer to Rootblock 

Program: From here on the executable program is stored. 

With the following program the sum of the user's data can be formed, 
starting at the DOS identification. The result of this is then reversed by 
the program and entered as checksum (Offset 4 starting from the boot 
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buffer). It is important that the sum entered before the calculation is 
null. This is done by the program. 

During the calculation of the user's data it can be determined that the 
checksum is correct ($00000000) and is recognized as such by the oper- 
ating system. 



Program for the calculation of the checksum: 



lea Bootbuf fer,A0 


lea 4 (a0),al 


clr.l ( 


al) 


move . w 


#$00ff,Dl 


moveq 


#$00, DO 


add.l 


(A0)+,D0 


bcc 


Jump 


addq . 1 


#1,D0 


dbf 


Dl,Loop 


not.l 


DO 


move . 1 


DO, (al) 



Loop: 
Jump: 



All that remains is deciding what the boot program contains and writing 
it to the disk. 

The Boot How the operating system implements the booting of disks is explained 

routine in the following section. To explain the entire reset routine would be 

too extensive, so the explanation is limited to the most important 

parts. 

1 .) Creating the Resident structure table $fc0504 

fc0504 bsr.l $fc0900 

This call causes a search for all Resident structures (reset proof pro- 
grams) which are in ROM. The pointers to these structures are stored in 
a table. The sequence of the entries in the table is according to priority 
of the Resident structures. The pointer to the table is stored at Offset 
300 of the Execbase structure (ResModules). 

2.) Processing the Resident structures $fc0522 

fc0522 bsr.l $fc0af0 

After the creation of the table, the InitCode() routine is called. It 
processes the Resident structures in the sequence of their priorities (high 
priority has precedence over lower priority). The lowest priority is -60 
and the structure which pertains to it is the routine for die booting of 
the disk. 

Now for the documented Boot routine of ROM: 

fe88d6 movem.l A5-A3/D3-D2,-(A7) Save Register 
fe88da moveq #$00, D3 Clear D3 

fe88dc suba.l A4,A4 Clear A4 

101 



6. File control 



Amiga disk drives inside and out 



fe88de lea 

fe88e4 link 
fe88e8 suba.l 
feSSee move.l 
fe88f2 move.l 



$fe8b3a,A3 

A5,#-126 
#$0000007e,A5 
A6,0(A5) 
D3,4(A5) 



Pass the pointer 

to RTS in A3 

increase stack 

A5 to beginning of stack 

enter Execbase 

enter null 



The following routine reserves the storage for the disk buffer. 

fe88f6 move.l #$00000488, DO pass the size of the storage to use 
fe88fc move.l #$00010002, Dl order Chip-Memory and erase 

fe8902 jsr -198 (A6) Alloc Mem 

fe8906 tst.l DO did error occur? 

fe8908 bne.s $fe8924 if not, branch 

fe890a movem.l A6-A5/D7,-(A7) save Register 

fe890e move.l #$30010000, D7 pass error number 

fe8914 move.l $0004, A6 write Execbase in A6 

fe8918 jsr -108 (A6) Alert 
fe891c movem.l (A7)+,A6-A5/D7 restore register 
fe8920 bra.l $fe8b2a reduce stack 

and end 



fe8924 move.l D0,A4 

fe8926 lea $fe889e,A0 

fe8 92c move.l A0,54(A5) 

fe8930 move.l A0,102(A5) 



fe8934 suba.l A1,A1 

fe8936 jsr -294 (A6) 

fe893a move.l DO, 108 (A5) 

fe893e move.b #$00,106(A5) 

A blank List is created. 
fe8944 lea 112(A5),A0 



fe8948 move.l A0, <A0) 

fe894a addq.l #4, (A0) 

fe894c clr.l 4 (A0) 

fe8950 move.l A0,8(A0) 

fe8954 moveq #$ff,D0 

fe8956 jsr -330 (A6) 

fe895a move.b DO,107(A5) 

fe895e bpl.s $fe897a 

fe8960 movem.l A6-A5/D7,-(A7) 

fe8964 move.l #$30070000, D7 



pass the pointer 
to reserved 
storage in A4 
pass pointer to 
ASCII "STrap." 
as Disk-I/O-Name 
and store 



enter as Portname in 
Message-Port- 
List 

erase Al 

get running task 
and store pointer 
enter flags in the Msg.- Port- 
Structure 

pass pointer to 

Message-List to 

A0 

write pointer to 

Message-List in 

ml_Head 

set ml_Head to ml_Tail 

set ml_Tail to 
set ml_TailPred to 
ml_Head 

search for signal of the running 
Task 

Alloc Signal 

enter Signal into Msg.- Port- 
Structure 
if everything O.K. 
branch 

otherwise no Signal 
available 
pass error number 
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fe896a move.l $0004, A6 



write Execbase in A6 



fe896e jsr -108 (A6) Alert 
fe8972 movem.l ( A7 ) +, A6-A5/D7 restore Register 
fe8976 bra.l $fe8ble branch 

fe897a lea 92(A5),A0 get pointer to Msg. -Port- 
Node 
fe897e move.l A0,58(A5) and enter into Disk-I/O-Structure 
fe8982 lea -192 (PC) (=$fe88c4) ,A0 pass pointer to ASCII 

"trackdisk .device" 



£e8986 lea 
fe898a moveq 


44(A5),A1 
#$00, DO 


pass pointer to I/O-Request- 

Structure 

set drive DF0 


fe898c moveq 
fe898e jsr 


#$00, Dl 
-444 (A6) 


do not pass Flags 
open Trackdisk-Device 


fe8992 tst.l 
fe8994 beq.s 


DO 
$fe89b0 


Device open ? 
if yes, branch 



fe8996 movem.l A6-A5/D7,-(A7) otherwise save Register 

and 
fe899a move.l #$30048014, D7 pass Error number 
fe89a0 move.l $0004, A6 write Execbase in A6 

fe89a4 jsr -108 (A6) Alert 

fe89a8 movem.l (A7)+,A6-A5/D7 restore Register 

fe89ac bra.l $fe8bl4 Free Signal and End 

The following routine clears all buffers. 



fe89b0 move.w #$0100, $dff 096 
fe89b8 lea 44(A5),A1 



fe89bc move.w #$0005, 28 (Al) 



fe89c2 jsr 
fe89c6 tst.l 
fe89c8 bne.l 



-456 (A6) 

DO 

$fe8ac8- 



block DMA accesses 
pass the pointer 
to the I/O-Request - 
Structure in Al 
pass command: 
Clear Request 
DO 10 

did error occur? 
if yes, branch 



In the next routine the number of the disk changes is passed in D2. 

fe89cc lea 44(A5),A1 



fe89d0 move.w #$000d,28(Al) 

fe89d6 jsr -456 (A6) 

fe89da tst.l DO 

fe89dc bne.l $fe8ac8 

fe89e0 move.l 76(A5),D2 



pass pointer to 

I /O-Request-St ructure 

pass command: 

Change Number 

DO IO 

did error occur? 

if yes, branch 

otherwise pass the number 

of disk changes in D2 



Now a test is made if the disk inserted is a DOS disk, 

fe89e4 lea 44(A5),A1 
fe89e8 move.w #$0002,28 (Al) 



fe89ee move.l #$00000400, 36 (Al) 
fe89f6 move.l A4,40(A1) 



pointer to 

Structure 

command passed: 

Read 

pass length 

pass pointer to 
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Data Buffer 
fe89fa move.l #$00000000, 44 (Al) pass Offset for 

Boot -Block 
fe8a02 jsr -456 <A6) DO IO 

fe8a06 tst.l DO error occurred ? 

fe8a08 bne.s $fe8a5c if yes, branch 

fe8a0a move.l (A4),D0 first data to DO 

fe8a0c cmp.l -334 (PC) (=Sfe88cO) ,D0 compare with DOS- 
identification 
fe8al0 bne.s $fe8a5c if no agreement 

branch 
fe8al2 move.l A4,A0 otherwise pass the pointer 

the data buffer in A0 

Next follows the routine for testing of the boot block checksum. 

fe8al4 move.w #$00ff,Dl 



fe8al8 moveq #$00, DO 

fe8ala add.l (A0)+,D0 

feSalc bcc.s $fe8a20 

fe8ale addq.l #1,D0 
fe8a20 dbf 



fe8a24 not.l 
fe8a26 bne.s 



load counter with value for 
102 4K (Boot Block) 
clear Register for 
Checksum 

add content of longword from 
Diskbuffer to DO 
if no overflow was created 
branch 

otherwise increment DO by 
overflow 
Dl,$fe8ala if the 1024K 

of the Boot-Block have not been 
processed, add further 
reverse the Bits of the Checksum 
if Checksum is not 
O.K., branch 



DO 
$fe8a5c 



Jump to the Boot program 

fe8a28 lea 44(A5),A1 
fe8a2c jsr 12 (A4) 



pass pointer to I/O-Request- 

Structure 

jump into the Boot-Program 



fe8a30 tst.l DO 
fe8a32 beq.s $fe8a56 
fe8a34 move.l D0,-(A7) 



fe8a36 move.l A7,A1 



error occurred ? 

if not, branch 

write error register to the 

Stack 

write Alert-Parameter to 

Al 
fe8a38 movem.l A6-A5/D7,-(A7) save Register 
fe8a3c move.l #$30000001, D7 pass Error number 
fe8a42 lea (A1),A5 pass Alert -Parameter to A5 
fe8a44 move.l $0004, A6 write Execbase in A6 

fe8a48 jsr -108 (A6) Alert 

fe8a4c movem.l (A7)+,A6-A5/D7 restore Register 

fe8a50 addq.l #4,A7 set Stack beginning after 

Alert -Parameter 
fe8a52 bra.l $fe8b00 branch 

Next the pointer to the initialization routine is passed to A3. 

fe8a56 move.l A0,A3 Pass pointer to the initialization routine 
fe8a58 bra.l $fe8b00 branch 
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-456 (A6) 


fe8a80 


tst.l 


DO 


fe8a82 


bne.s 
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This routine tests if the display asking for insertion of the Workbench 
disk has been sent to the screen already. If not, it is displayed and then 
die motor is switched off. 

fe8a5c move.l 4(A5),D0 Gfx-Library available ? 

fe8a60 bne.s $fe8a66 if yes, branch 

£e8a62 bsr.l $fe8b7e else Gfx-Library 

open 
fe8a66 move.w #$8100, $dff 096 permit DMA accesses 
fe8a6e lea 44(A5),A1 pass pointer to I/O-Request- 

Structure in Al 
fe8a72 move.w #$0009,28 (Al) pass command: 

Motor 

switch off motor 

DO IO 

Error occurred ? 

if yes, branch 

The following routine waits until the disk is changed. 

fe8a84 lea 44(A5),A1 pass pointer to I/O-Request- 

Structure to Al 

fe8a88 move.w #$000d,28 (Al) pass command: 

Change Num 
fe8a8e jsr -456 (A6) DO IO 
fe8a92 tst.l DO Error occurred ? 

fe8a94 bne.s $fe8ac8 if yes, branch 
fe8a96 cmp.l 76(A5),D2 Disk changed in the meantime ? 

fe8a9a beq.s $fe8a84 if not, continue testing 

The program now senses if a disk is inserted. 

fe8a9c lea 44(A5),A1 pass pointer to I/O-Request- 

Structure 
fe8aa0 move.w #$000e,28 (Al) pass command: 

Changestate 
fe8aa6 jsr -456 (A6) DO IO 
fe8aaa tst.l DO Error occurred? 

fe8aac bne.s $fe8ac8 if yes, branch 
fe8aae tst.l 76 (A5) Disk inserted ? 
fe8ab2 bne.s $fe8a9c if not, continue testing 
fe8ab4 bra.l $fe89b0 if Disk was inserted, branch 

The number of disk changes is passed. 

fe8ab8 lea 44(A5),A1 pass pointer to I/O-Request- 

Structure 
fe8abc move.w #$000d,28 (Al) pass command: 

Change Num 
fe8ac2 jsr -456 (A6) DO IO 
fe8ac6 bra.s $fe8a5c branch 

A jump to the following routine occurs in case of error. 

fe8ac8 cmpi.b #$ld,75(A5) Error occurred 
fe8ace beq.s $fe8ab8 if yes, branch 
fe8ad0 pea $0000 write $0000 into 
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the stack 
fe8ad4 move.w 72(A5),2(A7) get I/O command and write into stack 
fe8ada pea $0000 write $0000 into the 

stack 
fe8ade move.b 75(A5),3(A7) get I/O error and write into stack 
fe8ae4 move.l A7,A1 pass stack as Alert- 
Parameter 
£e8ae6 movem.l A6-A5/D7,-(A7) save Register 
fe8aea move.l #$30068014, D7 pass error number 
fe8af0 lea (A1),A5 pass Alert-Parameter 

AS 
fe8a£2 move.l $0004, A6 write Execbase in A6 



fe8af6 jsr -108 <A6) Alert 

£e8afa movem.l (A7)+,A6-A5/D7 restore Register 



fe8afe addq.l #8,A7 



set stack beginning behind 
Alert -Parameter 



During the following routine everything is restored to normal and a 
jump is performed to the initialization routine of DOS. 



fe8b00 bsr.l $fe8dd0 
£e8b04 move.w #$8100, $dff 096 
fe8b0c lea 44(A5),A1 



£e8bl0 


jsr 


-450 (A6) 


£e8bl4 


moveq 


#$00, DO 


fe8bl6 


move.b 


15(A5),D0 


£e8bla 


jsr 


-336 (A6) 


fe8ble 


move.l 


A4,A1 


the 






fe8b20 


move . 1 


#$00000488, DO 


fe8b26 


jsr 


-210 <A6) 


fe8b2a 


adda.l 


#$0000007e,AS 


fe8b30 


unlk 


A5 


fe8b32 


move . 1 


A3,A0 


£e8b34 


movem.l 


(A7)+,A5-A3/D3-D2 


£e8b38 


jmp 


(A0) 


routine 




fe8b3a 


rts 





branch 

permit DMA accesses 

pass pointer to I/O-Request- 

Structure 

Close Device 

erase DO 

pass Signal number 

Free Signal 

write beginning address of 

occupied storage to Al 

pass size of occupied storage 

Free Mem 

set A5 to end of stack 

bring stack to normal size 

pass pointer to initialization 

routine in A0 

restore Register 

perform initialization 



hi the normal case, AO contains the pointer to the initialization routine, 
hi case of an error, A0 contains the pointer to $fe8b3a. A jump is made 
through WarmCapture (if it contains a value). 

This routine opens the Gfx library. 

fe8b7e lea -68 (PC) (=$fe8b3c) ,A1 pass pointer to ASCII 

"graphics .library" 
to A0 
fe8b82 moveq #$00, DO pass Version 

fe8b84 jsr -552 (A6) Open Library 

fe8b88 move.l D0,4(A5) enter Gfx-Base in the stack 



fe8b8c bne.s $fe8ba6 

branch 

fe8b8e movem.l A6-A5/D7,-(A7) 

fe8b92 move.l #$30038002, D7 



if no error occurred, 

save Register 
pass error number 
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fe8b98 move.l $0004, A6 
fe8b9c jsr -108 (A6) 
fe8ba0 movem. 1 (A7) +, A6-A5/D7 
fe8ba4 rts 



write Execbase in A6 

Alert 

restore Register 



The following routine reserves storage for the View port 



£e8ba6 


movem. 1 A6/A3-A2/D5-D2,-(A7) 


fe8baa 


move.l 


0(A5),A6 


fe8bae 


move . 1 


#$00005e9a,D0 


fe8bb4 


move . 1 


#$00010003, Dl 


fe8bba 


jsr 


-198 (A6) 


fe8bbe 


tst.l 


DO 


fe8bc0 


bne.l 


$fe8be0 


fe8bc4 


movem. 1 A6-A5/D7,-(A7) 


fe8bc8 


move.l 


#$30010000, D7 


feSbce 


move . 1 


$0004, A6 


fe8bd2 


jsr 


-108 (A6) 


fe8bd6 


movem. 1 


(A7)+,A6-A5/D7 


fe8bda 


movem. 1 


(A7) +,A6/A3-A2/D5-D2 


fe8bde 


rts 





save Register 
pass Execbase to A6 
write Byte length in 
request chip memory, 
and not relocatable 
Allocate memory 
error? 

if not, branch 
save Register 
pass error number 
write Execbase to A6 
Alert 

restore Register 
restore Register 



DO 
erase 



In the routines which follow, the structures required for the display 
output are created, among other things. 



fe8be0 


move . 1 


D0,8(A5) 


store pointer to View-Port 


£e8be4 


addi.l 


#$00000028, DO 


reserve space 


feSbea 


move . 1 


DO, 12 (A5) 


store pointer to View 


fe8bee 


addi.l 


#$00000012, DO 


reserve space 


fe8bf4 


move . 1 


D0,16(A5) 


store pointer to Rast-Port 


fe8b£8 


addi.l 


#$00000064, DO 


reserve space 


£e8b£e 


move.l 


DO,20(A5) 


store pointer to TmpRas 


fe8c02 


addi.l 


#$00000008, DO 


reserve space 


fe8c08 


move.l 


D0,24(A5) 


store pointer to Raslnfo 


fe8c0c 


addi.l 


#$000OOOOc,DO 


reserve space 


fe8cl2 


move.l 


D0,28(A5) 


store pointer to Bitmap 


fe8cl6 


addi.l 


#$00000028, DO 


reserve space 


fe8clc 


move.l 


DO, 32 (AS) 


store PlanePTR 1-4 


fe8c20 


move . 1 


#$00001f40,Dl 


set Byte length 


fe8c26 


add.l 


D1,D0 


reserve space 


£e8c28 


move.l 


DO, 36 (AS) 


store PlanePTR 5-8 


fe8c2c 


add.l 


D1.D0 


reserve space 


fe8c2e 


move.l 


D0,40(A5) 


store pointer to Buffer 


fe8c32 


move . 1 


4(A5),A6 


write Gfx-Base in A6 


fe8c36 


move.l 


8(A5),A0 


pass pointer to View-Port in A0 


fe8c3a 


jsr 


-204 (A6) 


Init View Port 


fe8c3e 


move . 1 


12(A5),A1 


pass pointer to View in Al 


fe8c42 


jsr 


-360 (A6) 


Init View 


fe8c46 


move . 1 


28(A5),A0 


write pointer to Bitmap- 
Structure in A0 


fe8c4a 


moveq 


#$02, DO 


pass 2 Bitplanes 


fe8c4c 


move . 1 


#$00000140,D1 


pass width 


fe8c52 


move.l 


#$000000c8,D2 


pass heigth 


fe8c58 


jsr 


-390 (A6) 


Init Bitmap 


fe8c5c 


move . 1 


28(A5),A0 


write pointer to Bitmap- 
Structure in A0 


fe8c60 


move . 1 


32(A5),8(A0) 


store PlanePTR 1-4 


fe8c66 


move.l 


36 (AS), 12 (A0) 


store PlanePTR 5-8 


fe8c6c 


move . 1 


16(A5),A1 


pass pointer to Rast-Port in Al 


fe8c70 


jsr 


-198 (A6) 


Init Rast-Port 
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fe8c74 move.l 


20(AS),A0 


fe8c78 move.l 


40(A5),A1 


fe8c7c move.l 


#$00001f40 f DO 


fe8c82 jsr 


-468 (A6) 


fe8c86 move.l 


24(A5),A0 


fe8c8a move.l 


28(A5),4(A0) 


fe8c90 move.l 


16(A5),A0 


fe8c94 move.l 


28<A5),4(A0) 


fe8c9a move.l 


20 (A5) , 12 (A0) 


fe8ca0 move.l 


8 (A5) ,A0 


fe8ca4 move.w 


#$00c8,26(A0) 


fe8caa move.w 


#$0140,24 (A0) 


fe8cb0 move.l 


24(A5),36(A0) 


fe8cb6 clr.w 


32 (A0) 


fe8cba move.l 


12(A5),A3 


fe8cbe move.l 


8(A5),0(A3) 


fe8cc4 move.l 


A3,A0 


£e8cc6 move.l 


8 (A5) ,A1 


fe8cca jsr 


-216 (A6) 


fe8cce move.l 


A3,A1 


fe8cd0 jsr 


-210 (A6) 


fe8cd4 move.l 


A3,A1 


fe8cd6 jsr 


-222 (A6) 


fe8cda move.l 


8<A5),A0 


fe8cde lea -402 (PC) (=$fe8b4e) ,A1 


£e8ce2 moveq 


#$14, DO 


fe8ce4 jsr 


-192 (A6) 


fe8ce8 move.l 


16(A5),A3 


fe8cec lea 


302 (PC) (=$fe8elc) , 


fe8cf0 move.l 


A3,A1 


fe8cf2 moveq 


#$00, DO 


fe8cf4 jsr 


-354 (A6) 


fe8cf8 moveq 


#$00, D3 


£e8cfa move.b 


(A2)+,D3 


fe8cfo moveq 


#$00, D5 


fe8c£e move.b 


(A2)+,D5 


fe8d00 cmpi.b 


#$ff,D3 


fe8d04 bne.s 


$£e8d2e 


fe8d06 cmpi.b 


#$ff,D5 


fe8d0a beq.l 


$£e8d6a 


fe8d0e moveq 


#$00, D4 


fe8dl0 move.b 


(A2)+,D4 


fe8dl2 moveq 


#$00,D3 


fe8dl4 move.b 


(A2)+,D3 


fe8dl6 move.l 


A3.A1 


fe8dl8 move.l 


D5,D0 


fe8dla jsr 


-342 (A6) 


fe8dle moveq 


#$28, Dl 


fe8d20 add.l 


D3,D1 


£e8d22 moveq 


#$46,D0 


£e8d24 add.l 


D4,D0 


fe8d26 move.l 


A3,A1 


fe8d28 jsr 


-240 (A6) 



write pointer to TmpRas in A0 
write pointer to Buffer in Al 
pass size in DO 
Init Tmp Ras 

pass pointer to Raslnfo- 
Structure in A0 
store pointer to Bitmap 
pass pointer to Rast-Port- 
Structure in A0 
store pointer to Bitmap 
store pointer to Tnj) Ras 
write pointer to View-Port- 
Structure to A0 
store DHeigth 
store DWith 

store pointer to Raslnfo 
erase Modes 
write pointer to View- 
Structure to A3 
store pointer to View-Port 
pass pointer to View in A0 
pass pointer to View-Port 
in Al 

Make View-Port 
write pointer to View to Al 
Mrg Cop 

pass pointer to View in Al 
Load View 

write pointer to View-Port A0 
write colors to Al 
pass Count in DO 
Load RGB4 

pass pointer to Rast-Port A3 
A2 pass pass pointer to Xl/Yl 

coordinates 
pass pointer to Rast-Port 
in Al 

pass Draw Mode in DO 
Set Draw Mode 
clear D3 

pass Yl coordinate in D3 
clear D5 
pass Pen in D5 
is Yl equal to #$ff ? 
if not, branch 
is Pen equal to #$ff? 
if yes, branch 
clear D4 

get new XI value 
clear D3 

get new Yl value 
write pointer to Rast-Port to Al 

pass Pen in DO 
Set A Pen 
pass Y in Dl 
add Yl to Y 
pass X in DO 
add XI to X 

write pointer to Rast-Port to 
Move 
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fe8d2e 


cnipi.b 


#$fe,D3 


Is Yl equal to #$fe 


fe8d32 


bne.s 


$fe8d56 


If not, branch 


fe8d34 


moveq 


#$00, D4 


clear D4 


fe8d36 


move.b 


(A2)+,D4 


get new XI value 


fe8d38 


moveq 


#$00, D3 


clear D3 


£e8d3a 


move.b 


(A2)+,D3 


get new Yl value 


fe8d3c 


move . 1 


A3,A1 


pass pointer to Rast-Port in Al 


fe8d3e 


move.l 


D5,D0 


pass Pen in DO 


fe8d40 


jsr 


-342 (A6) 


Set A Pen 


fe8d44 


moveq 


#$28, Dl 


pass Y in Dl 


fe8d46 


add.l 


D3,D1 


add Yl to Y 


fe8d48 


moveq 


#$46, DO 


pass X in DO 


fo8d4a 


add.l 


D4,D0 


add XI to X 


fe8d4c 


moveq 


#$01, D2 


write Mode in D2 


£e8d4e 


move . 1 


A3,A1 


pass pointer to Rast-Port in Al 


fe8d50 


jsr 


-330 (A6) 


Flood 


£e8d54 


bra.s 


$fe8c£8 


branch 


£e8d56 


move.l 


D3,D4 


pass Yl in XI 


fe8d58 


move . 1 


D5,D3 


pass Pen in Yl 


fe8d5a 


moveq 


#$28,D1 


write Y to Dl 


fe8d5c 


add.l 


D3,D1 


add Yl to Y 


fe8d5e 


moveq 


#$4 6, DO 


write X to DO 


fe8d60 


add.l 


D4,D0 


add XI to X 


fe8d62 


move.l 


A3,A1 


pointer to Rast-Port to Al 


fe8d64 


jsr 


-246 (A6) 


Draw 


£e8d68 


bra.s 


$fe8cf8 


branch 


£e8d6a 


lea 


588 (PC) <=$fe8fb8) 


,A2 pointer to new data 


fe8d6e 


move.l 


A3,A1 


pass pointer to Rast-Port in Al 


fe8d70 


moveq 


#$03, DO 


pass Pen in DO 


fe8d72 


jsr 


-342 (A6) 


Set A Pen 


fe8d76 


move . w 


(A2)+,D0 


get Pen 


fe8d78 


bml.s 


$fe8db8 


if result is negative, branch 


fe8d7a 


move.b 


DO, 24 (A3) 


store Pen in Rast-Port 


fe8d7e 


moveq 


#$00, D4 


clear D4 


fe8d80 


move.b 


(A2)+,D4 


get XI 


fe8d82 


moveq 


#$00, D5 


clear D5 


fe8d84 


move.b 


(A2)+,D5 


get Pen 


fe8d86 


moveq 


#$46,D2 


load D2 with #$46 


fe8d88 


moveq 


#$00, DO 


clear DO 


fe8d8a 


move.b 


(A2)+,D0 


get DO 


fe8d8c 


add.l 


D0,D2 


add DO to D2 


fe8d8e 


moveq 


#$28,D3 


get Yl 


fe8d90 


move.b 


(A2)+,D0 


get Y 


£e8d92 


add.l 


D0,D3 


add Y to Yl 


fe8d94 


move.w 


D4,D0 


pass XI in DO 


fe8d96 


mulu 


D5,D0 


multiply XI with D5 


£e8d98 


lea 


1032(A4),A0 


pass Source in A0 


fe8d9c bra.s 


$fe8da0 


branch 



The next routine copies display data into the Source structure. 

fe8d9e move.w (A2)+, (A0) + copy data in the Source structure 

fe8da0 dbf D0,$fe8d9e if not all data were copied, branch 

fe8da4 lea 1032(A4),A0 pass Source in A0 

fe8da8 moveq #$00, DO pass srcX in DO 

fe8daa add.l D4,D4 increment sizeX 

fe8dac move.l D4,D1 pass srcMod in Dl 

fe8dae move.l A3,A1 store destRast-Port 

fe8db0 lsl.w #3,D4 store sizeX 

fe8db2 jsr -36 (A6) Bit Tem Plate 

fe8db6 bra.s $fe8d76 branch 
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The next routine passes the colors in the View port colormap. 

fe8db8 move.l 8(A5),A0 pass pointer to View-Port 

in AO 
fe8dbc lea -584 (PC) <=Sfe8b76) ,A1 write pointer to colors in 

Al 
fe8dc0 moveq #$04, DO pass Count in DO 

fe8dc2 jsr -192 (A6) Load RGB4 

fe8dc6 jsr -270 (A6) Wait T Of 

fe8dca movem.l (A7)+,A6/A3-A2/D5-D2 restore Register 
fe8dce rts 

The next routine releases the View port and closes the Gfx library. 



fe8dd0 


move.l 


A6,-(A7) 


fe8dd2 


tst.l 


4(A5) 


fe8dd6 


beq.s 


$fe8el6 


fe8dd8 


tst.l 


8(A5) 


fe8ddc 


beq.s 


$fe8e0a 


fe8dde 


move . w 


#$0100,$dff096 


fe8de6 


move.l 


4(A5),A6 


feSdea 


suba.l 


A1,A1 


fe8dec 


jsr 


-222 (A6) 


fe8df0 


move . 1 


8(A5),A0 


fe8df4 


jsr 


-540 (A6) 


fe8df8 


move.l 


0(A5),A6 


fe8dfc 


move . 1 


8(A5),A1 


Al 






£e8e00 


move.l 


#$00005e9a,D0 


fe8e06 


jsr 


-210 (A6) 


fe8e0a 


move.l 


0(A5),A6 


fe8e0e 


move.l 


4<A5),A1 


fe8el2 


jsr 


-414 (A6) 


fe8el6 


move.l 


(A7)+,A6 


fe8el8 


rts 





save Register 

Gfx-Base available ? 

if not, branch 

pointer to View-Port 

present ? 

if not, branch 

block DMA 

pass Gfx-Base in A6 

clear Al 

Load View 

pass pointer to View-Port in AO 

FreeVPort Cop Lists 

pass Execbase in A6 

write pointer to View-Port to 

pass number of Bytes in DO 

Free Mem 

pass Execbase in A6 

pass Gfx-Base in Al 

Close Library 

get Register 



6.2.3 



The root block 



AmigaDOS controls all files through tables of content, the directories. 
Every directory can contain another. The difficulty is in the fact that 
AmigaDOS must partition the logical blocks (sectors) of the Trackdisk 
devices into directories and files. This is done with the help of control 
blocks. These blocks are only used for control and therefore do not 
contain any of the actual data. 

The root block is one of these control blocks. It represents the main 
directory and contains, among other items, the name of the disk. The 
root block is located in cylinder 40, upper side sector zero. This is 
block 880 ($370). 
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LONG-Offset Byte-Nr Function Constants 

Type T SHORT (2) 

1 4 Always (0) 

2 8 Always (0) 

3 12 SizeofHashtable(size-56) (72) 

4 16 Always (0) 

5 20 Checksum 

6 24 Hash table 

Size-50 312 BMFLAG-> <>0: Bitmap is valid 

Size-49 316 Bitmap-Blocks 

Size-23 420 Last Write access: Day 

Size-22 424 Last Write access: Minutes 

Size-21 428 Last Write access: Ticks (l/50Sec) 

Size-20 432 Disk Name as BCPL-String (<=30 character) 

Size-7 484 Disk Creation date: Day 

Size-6 488 Disk Creation date: Minutes 

Size-5 492 Disk Creation date: Ticks (l/50Sec) 

Size-4 496 Always Null (0) 

Size-3 500 Always Null (0) 

Size-2 504 Always Null (0) 

Size-1 508 Sub type of the Block STJlOOT(l) 

All entries are in the longword format as it is customary in BCPL. 
Since AmigaDOS does not prescribe the length of a logical block, the 
individual entries are always counted relative to the beginning and the 
end 

For disks a block length of 512K is fixed. The byte indications in the 
table have already been converted to the standard length of the disk 
sector. The longword indications count relative to the beginning or end, 
where size is the length of a block in longwords (for a Floppy 128L). 

At the beginning of every block there is an identification which indi- 
cates the type of the block. In this case it is a 2 for T.SHORT. In addi- 
tion at the end of the block there is a sub-identification. The root block 
contains a 1 for ST.ROOT. 

Also the root block contains the name of the disk as a BCPL string. 
The date on which the disk was formatted can also be found here. 
AmigaDOS also makes a "note" here of the last time the disk was 
written. 

The function of the remaining entries is described in the next sections. 
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6.2.4 



The user directory blocks 



This type of block controls the subdirectories. The main type is the 
same as the boot block. The subtype is again the block: ST.USERDIR. 

The construction in general is the same as the Root directory: 



LONG-Offset 


Byte-Nr 


Function Constants 








Type T.SHORT (2) 


1 


4 


Block-pointer to itself 


2 


8 


Always (0) 


3 


12 


Always (0) 


4 


16 


Always (0) 


5 


20 


Checksum 


6 


24 


Hashtable 


Size-SO 


312 


Not used (0) 


Size-48 


320 


Protection Status-Bits 


Size-47 


324 


Not used (0) 


Size-46 


328 


Comment as BCPL-String 


Size-23 


420 


Creation date: Day 


Size-22 


424 


Creation date: Minutes 


Size-21 


428 


Creadon date: Ticks (l/50Sec) 


Size-20 


432 


Dir name as BCPL string (<=30 char.) 


Size-4 


496 


Next Block with same Hash 


Size-3 


500 


Block-pointer to higher level directory. 


Size-2 


504 


Always Null (0) 


Size-1 


508 


Sub type of Block ST.USERDIR (2) 



6.2.5 



The File header block 



This block is the backbone of every file. The type is T.SHORT with 
the subtype ST.FILE. This block holds the pointers to the individual 
data blocks: 



LONG-Offset 


Byte-Nr. 


Function Constants 




1 

2 

3 

4 

5 

6 

Size-51 

Size-50 




4 

8 

12 

16 

20 

24 

308 

312 


TypeT SHORT (2) 

Block-pointer to itself 

Number of Blocks in File-Header(!) 

Always Null (0) 

First data block 

Checksum 

LAST Block-pointer to the Data Blocks 

FIRST Block-pointer to data 

Not used (0) 
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Protection Status-Bits 
Size of the Files in Bytes 
Comments as BCPL-String 
Creation date: Day 
Creation date: Minutes 
Creation date: Ticks (1/SOSec) 
Filename as BCPL-String (<=30 characters) 
Next Block with the same Hash 
Block-pointer to higher level Directory 
Block-pointer to first Extension-Block or 0, 
if all Blocks are recorded here 
Size-1 508 Sub type of the Block STJFILE (-3) 



Size-48 


320 


Size-47 


324 


Size-46 


328 


Size-23 


420 


Size-22 


424 


Size-21 


428 


Size-20 


432 


Size-4 


496 


Size-3 


500 


Size-2 


504 



6.2.6 The File list block 



If there is not enough space in the File header block for all the pointers, 
this block contains the remaining entries. If this block does not have 
enough space, another File list block is attached. This happens until all 
data blocks have been accomodated. 



LONG-Offset 


Byte-Nr. 


Function Constants 








Type T.LIST (16) 


1 


4 


Block-pointer to itself 


2 


8 


Number of Blocks noted in File List(!) 


3 


12 


Always Null (0) 


4 


16 


First Data block 


5 


20 


Checksum 


6 


24 


Last Block pointer to the Data blocks. 


Size-51 


308 


First Block pointer to data 


Size-50 


312 


Not used (0) 


Size-4 


496 


always Null (0) 


Size-3 


500 


pointer to File-Header-Block 


Size-2 


504 


Block pointer to next Extension-Block or 0, 
if all Blocks are recorded 


Size-1 


508 


Sub type of the Block ST.FELE (-3) 



6.2.7 The Data block 



The block numbers of the individual data blocks are contained in the 
File header or File list block. This is the data block which contains the 
actual bytes of a file: 
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LONG-Offset 


Byte-Nr 


Function Constant 








Type TDATA (8) 


1 


4 


Pointer to File header block 


2 


8 


Number of die Data block 


3 


12 


Number of data bytes in the block 


4 


16 


Next Data block 


5 


20 


Checksum 


6 


24 


Data starts here 



6.2.8 



The calculation of the checksum 



As the tables show, the first longword (= 20K) in the block contains a 
checksum for the block. How this is calculated can be seen in the 
following small program 



loopl : 



lea Databuffer,aO 
move.l a0,al 
move.w #$7f,dl 
clr.l dO 
move.l d0,20(al) 
sub.l (a0)+,d0 
dbf dl, loopl 
move.l d0,20(al) 
rts 
END 



/pointer to Data Buffer 

;save pointer 

;Counter for number of data 

; clear DO 

/clear sum entered 

;form Sum 

; enter Sum Into Block 



114 



Abacus 



63 Connections between the blocks 



6.3 



Connections between the 
blocks 



All blocks of a disk controlled by AmigaDOS are logically connected 
with each other. The root of this block system is the root block. It is 
always located in logical block 880 of the disk. From this block 
branches all other blocks. 

The location of individual blocks is determined by the Hash Table. It 
contains (for a block length of S12K), 72 longword pointers. Amiga- 
DOS calculates the proper entry in the Hash Table from the filename. It 
then checks in the block to determine if it was the desired entry. More 
on this in the next section. Assume that the Hash Table contains the 
pointers to the control blocks of the files and sub-directories. 

The following illustration shows the complete file system of 
AmigaDOS with all control blocks: 
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Figure 1: The Amiga File System 

The root block (extreme left) also contains some pointers to the Bitmap 
blocks. In the Bitmap, AmigaDOS records which blocks are still avail- 
able and which are occupied. A normal disk requires less than one block 
for the Bitmap. For this reason only the first Bitmap pointer of the root 
block is occupied. 

The Hash Table of the root block can contain pointers to a sub-directory 
(ST.USERDIR) or to a file (ST.FILE). A sub-directory is constructed 
similar to the root block. The Hash Table has the same construction. It 
contains only the block pointers to the files and other sub-directories of 
ST.USERDlR's. 
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For a normal file the Hash entry points to a File header ST.FILE. 
Every File header contains the individual pointers to the data blocks. If 
there is not sufficient space for the pointers in the File header, the 
extension entry points to an extension block. This block is similar in 
construction to the file header and contains the remaining pointers to 
the data blocks. If even this space is not sufficient, the extension entry 
points to the next file list block until all data blocks have been 
recorded 

The data blocks contain only 6 longwords for control. An entry always 
points to the next data block of the same file. Additionally, the number 
of data bytes contained in this block are recorded here. In case of doubt 
this must always be the maximum of 488K (512-6*8). Only the last 
data block can be partially empty. 
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6.4 



The hash calculation 



The user familiar with other file systems automatically connects a direc- 
tory with a list of filenames. In AmigaDOS, however, a directory is 
organized differently. The filenames are already recorded in the File 
header block. The directory is therefore only a list of block numbers in 
which the headers can be found. 

The problem is to get from the filenames to the hash entry belonging 
to it. This is done with a form of "checksum calculation" of the Name 
string: 

UBYTE Capital ( c )OBYTE c; 
< 

if (c >= *a' && c <= 'z') 
c -= 'a'-'A'; 

return c; 
} 

LONG Hash( length, s ) LONG length;UBYTE *s; 
{ 
LONG hash; 

for( hash = length; length — ; ) 

hash = ( (hash*13 + Capital ( *s++ )) s 0x7ff); 

return (LONG) (hash % 72 + 6 ) ; 
) 

The hash The string and its length is required for the calculation of the hash 

value value. The routine does not differentiate between upper and lowercase 

letters and basically calculates with the ASCII value of the uppercase 
letters. For this reason the Capital function is used for the conversion. 

When the hash value has been computed in the loop, it can be a number 
up to 2,047. This value must now be converted to the actual size of the 
Hash table. In a S12K disk block, the Hash table has 72 entries. There- 
fore the hash value is the result of dividing by 72. Since the Hash table 
starts after the sixth longword, a six must be added to the calculated 
value. Voila! - the entry of the Hash table has been calculated. 

The calculated longword of the root or userdir block must be read to 
obtain the desired block number. 

The Hashchain This form of hash calculation has only one error. Several filenames can 
have the same hash value (there are only 72 possibilities). For this 
reason every header block has a clever entry, the "Hashchain". The 
header blocks with the same hash value are thus chained together. If no 
further files are contained in the Hashchain, the entry contains a 0. 
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6 . 5 The bitmap 



In the root block an entry points to the bitmap block of the disk. This 
block contains the assignment of the blocks. Every bit represents a 
block. If a bit is set, the block is available. If the bit is reset (0), the 
block is already occupied. 

The bitmap starts at the second longword of the bitmap blocks, since 
the first longword is a checksum for the block. Therefore, the lowest bit 
of the second longword represents the second block, instead of the zero 
block as you might have thought. In AmigaDOS the two boot blocks 
are always occupied. For this reason they do not even appear. 

Following is a bitmap analysis program. The f's in the program are 
not to be enterd, they only show where the line actually ends. The 
program first reads the root block and then gets the block number of the 
bitmap which it reads and represents graphically. All Trackdisk device 
operations are used in extended format: 

/* */l 

/* Bitmap - Analyzer */! 

/* */t 

I* JEA, 08-15-87 */f 

/* */ 5 

♦include <exec/exec.h>5 

tinclude <devices/trackdisk.h>f 

♦include <intuition/intuition .h>H 

♦define ON 1LS 

♦define OFF OLS 

♦define BLOCK_SIZE 128Lf 

♦define BM_FLAG BLOCK_SIZE-50M 

♦define BM_BLOCKS BL0CK_SIZE-49LH 

extern struct MsgPort *CreatePort () if 

extern struct IORequest *CreateExtIO() ;! 

struct IntuitionBase *IntuitionBase;H 

struct Gf xBase *Gf xBase;? 

struct TextAttr MyFont =1 

{I 

"topaz. font",H 

TOPAZ_EIGHTY,I 

FS_NORMAL, f 

FPF_R0MFONT,fl 

};f 

struct NewScreen NewScreen =1 

{f 

0,1 

0,1 

640,1 

200,1 
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2,! 

0, 1,1 

HIRES I SPRITES,? 

CUSTOMSCREEN, ! 

SMyFont,! 

"- BitMap -",! 

NOLL, 3 

NULL, ! 

>;! 

/* * /5 

/* Switch Motor on and off */! 

/* */I 

/* */f 

/* * /5 

Motor ( diskreq, on ) ! 
struct IOExtTD *diskreq;! 
LONG on;! 
{! 

diskreq->iotd_Req.io_Length = on;! 

diskreq->iotd_Req.io_Cotnmand = TD_MOTOR;! 

DoIO (diskreq) ;5 

return (0) ;! 

>! 

/* * /5 

/* Read Block from Device indicated */! 

/* */ 

/* */! 

/* * /t 

ReadBlock ( diskreq, block, puffer, diskChangeCount )I 

struct IOExtTD *diskreq;! 

LONG block;! 

APTR puffer;! 

ULONG diskChangeCount;! 

<! 

dlskreq->iotd_Req.io_Length = TD_SECT0R;! 

diskreq->iotd_Req.io_Data = puffer;! 

diskreq->iotd_Req.io_Command = ETD_READ;! 

diskreq->iotd_Count = diskChangeCount;! 

diskreq->iotd_Req.io_Offset = block * TD_SECTOR;! 

if <DoI0 (diskreq))! 
return (1) ;! 

return (0) ;! 

)! 

/* * /5 

/* Search for Bitmap-Block and read */! 

/* */! 

/* */! 

/* */ f 

LONG! 

ReadBitmap( diskreq, buf )! 

struct IOExtTD *diskreq;! 

LONG *buf;! 

{! 

ULONG diskChangeCount;! 

diskreq->iotd_Req.io_Command = TD_CHANGENHM; ! 

DoIO (diskreq) ;! 
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diskChangeCount = diskreq->iotd_Req.io_Actual;H 

Motor ( diskreq, ON ) ; 5 

ReadBlock ( diskreq, 880L, buf, diskChangeCount );5 

printfl 

("Flag: %ld , Block#%ld \n", buf [BM_FLAG] , 
buf [BM_BLOCKS] );2 

if( buf[BM_FLAG] )$ 

ReadBlock ( diskreq, buf [BM_BLOCKS] , buf ) ;f 
Motor ( diskreq, OFF ) ;l 
return ( buf [BM_FLAG] ) ;1 

>I '" . 

/* */H 

/* Display Bitmap of the Device indicated */H 
/* */l 

/* */l 

/* */fl 

DisplayBitmap ( diskreq. Screen ) 1 

struct IOExtTD *diskreq;5 

struct Screen *Screen;H 

{f 

LONG *buf;fl 

LONG x, y;S 

OLONG loop;f 

struct Window *Window;5 

struct NewWindow NewWindow; H 

OLONG MessageClass;! 

USHORT code; 1 

LONG flag;!! 

struct Message *GetMsg();S 

struct IntuiMessage "message; 5 

NewWindow. LeftEdge = 0;S 

NewWindow. TopEdge = Oil 

NewWindow. Width = 640; 5 

NewWindow. Height = 160; 91 

NewWindow. DetailPen = 0;5 

NewWindow. BlockPen = 1/1 

NewWindow. Title = " Bitmap ";$ 

NewWindow. Flags - WINDOWCLOSE|SMART_REFRESH| ACTIVATE 1 1 
WINDOWDRAG I WINDOWDEPTH 1 5 
NOCAREREFRESH I GIMMEZEROZERO; 1 

NewWindow. IDCMPFlags = 
CLOSEWINDOW | DISKINSERTED I DISKREMOVED; H 

NewWindow. Type = COSTOMSCREEN;H 

NewWindow. FirstGadget = NULL;H 

NewWindow. CheckMark = NOLL; 1 

NewWindow. Screen = Screen if 

NewWindow. BitMap = NOLL; I 

NewWindow. MinWidth = 640;5 

NewWindow. MinHeight = 14 8; I 

NewWindow. MaxWidth = 640; 11 

NewWindow. MaxHeight = 200; 1 

if(( Window = (struct Window*) 5 

OpenWindow( SNewWindow )) == NOLL)? 
exit( FALSE ) ;« 

SetAPen (Window->RPort, 1 );f 

Move( Window->RPort, 500, 33 );f 
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Text( Window->RPort, "Side 0", 7 ) ;5 
Move( Window->RPort, 500, 105 );I 
Text( Window->RPort, "Side 1", 7 );f 
Move( Window->RPort, 0, 146 );f 
Text( Window->RPort , "1", 1 );f 
Move( Window->RPort, 466, 146 );I 
Text( Window->RPort, "80", 2 ) ;f 
Move( Window->RPort, 480, 8 );I 
Text( Window->RPort, "Sector 1.", 9 );I 
Move( Window->RPort, 480, 64 );I 
Text( Window->RPort, "Sector 11.", 10 );! 
Move( Window->RPort, 480, 80 ) ;f 
Text( Window->RPort, "Sector 1.", 9 );I 
Move( Window->RPort, 480, 136 );S 
Text( Window->RPort, "Sector 11.", 10 ) ;f 
buf = (LONG*) AllocMem( 512L, MEMF_CHIP );1 
ReadBitmap( diskreq, buf ) ;1 
buf[0] S= 0x3fffffffL;f 
loop=30L;! 

for( x=0; x<80; ++x ) {! 
for( y=0; y<22; ++y ) {I 

iff buf [loop/32] & (1L « (loop % 32) ) )f 

SetAPen (Window->RPort, 2 );I 
else! 

SetAPen <Window->RPort, 3 );1 
if (y > 10)5 

RectFilK Window->RPort , x*6, f 

(y+l)*6, x*6+4, (y+l)*6+4 ) ;I 
else? 

RectFilK Window->RPort, x*6, y*6, x*6+4, 
y*6+4 ) ; ++loop;l 
)I 
}I 

FreeMem( buf, 512L );! 

Wait ( l«Window->aserPort->rap_SigBit) ; 5 
flag = TRDE;I 
do! 
{! 

if (message = (struct ! 

IntuiMessage *)GetMsg(Window->OserPort) ) {! 
MessageClass = message->Class;5 
code = message->Code;! 
ReplyMsg (message) ; I 
switch (MessageClass) {I 
! 

case CLOSEWINDOW : flag = FALSE;! 

break; I 
case DISKREMOVED :! 

Text ( Window->RPort, 1 

"Disk Removed", 11) ;f 
break;! 
} /* Case */! 
) /* if V! 
}I 
while ( flag ) ; I 
CloseWindow ( Window ) ; I 
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>! 

/* . *n 

/* Close Libraries */! 

i* *n 

/* */! 



*/! 



CloseLibsO! 

<! 

CloseLibrary ( IntuitionBase );I 
CloseLibrary ( Gf xBase );! 

>! 

/* */l 

/* Open Libraries */! 

/* */! 

/* *n 

i* *n 

LONG! 

OpenLibs ( ) ! 
! 
<! 

IntuitionBase = (struct IntuitionBase*)! 

OpenLibrary( "intuition. library", 0) ;! 

if ( IntuitionBase == NULL ) exit ( FALSE ) ;! 

Gf xBase = (struct Gf xBase*)! 

OpenLibraryf "graphics. library", 0) ;! 

if (Gf xBase == NOLL) exit ( FALSE );! 

return ( TRUE ) ; 5 



>! 
I* 



V! 



/* Main-Program BITMAP-Analyzer */! 



/* 



*/! 



/* (open Device and Screen) */! 

/* */! 

main ( ) 1 

{! 

struct MsgPort *diskport;! 

struct IOExtTD *diskreq;! 

struct Screen *Screen;I 

if ( ! OpenLibs ( ) ) exit (FALSE) ; 5 

if ((diskport = CreatePort (0L,0) ) == NOLL)! 

{I 

printfC'Port can't be opened\n") ;! 
exit (FALSE);! 

)! 

diskreq = (struct IOExtTD *)CreateExtIO (diskport,! 
(long) sizeof (struct IOExtTD));! 
if (diskreq == 0)! 

{! 

printf ("DiskRequest can't be created !, Error 

%ld\n", diskreq);! 

! 

DeletePort (diskport) ;! 
exit (FALSE);! 

)! 

if ( OpenDevice(TD_NAME, 0L, diskreq, 0L) )! 

(! 



122 



Abacus 



6.5 The Bitmap 



print f ("Device reports error !\n") if 
DeletePort (diskport) ;! 

DeleteExtIO(diskreq, (long) sizeof (struct IOExtTD) ) /fl 
exit (FALSE) /fl 
)1 

iff (Screen = (struct Screen*) OpenScreen (SNewScreen) ) 
NOLL )fl 

exit ( FALSE ) ; 1 
DisplayBitmap( diskreq. Screen )/S 

DeleteExtIO(diskreq, (long) sizeof (struct IOExtTD));! 
DeletePort (diskport) /I 
CloseScreen ( Screen ) ; f 
CloseLibs () ;5 
exit ( TRUE ) ; f 



)5 



Calculation of The checksum of "normal" blocks differs from that of the bitmap block 
the bitmap only by the position where it is entered into the block. In the bitmap 

checksum block it is the first longword. The following program calculates the 

checksum and stores it. 



loopl : 



lea Databuffer,aO 
move.l aO,al 
move.w #$7f,dl 
clr.l dO 
move.l dO, (al) 
sub.l (aO)+,dO 
dbf dl, loopl 
move.l dO, (al) 
rts 
END 



/pointer to Data Buffer 
;save pointer 

/Counter for number of data 
/clear DO 
/erase sum entered 

/form Sum 

/enter Sum into Block 
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7 . Viruses 



Almost everybody has heard about the existence of computer viruses. 
How they are constructed and protection against them, is probably not 
well known. 

Generally computer viruses are small programs which integrate them- 
selves into the operating system of a computer. At the most favorable 
opportunity they copy (multiply) themselves onto diskettes or hard 
disks. 

Besides having the capability of reproduction, the viruses often cause 
unpleasant effects inside the computer. This can start with a harmless 
message on the screen. Unfortunately, it can escalate to a crash of the 
system or the destruction of the data on disks. 

A virus is, as already mentioned, a program and must therefore be 
started like any other program to become active. To start itself without 
the user noticing, the virus copies itself to a spot on the disk where it 
is not noticeable and is started automatically. 
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7.1 



Boot block viruses 



The simplest place for the virus to go is the boot block, where 
normally important data isn't stored. It's large enough to host a virus 
and the virus is started after a reset when a disk is inserted into the 
internal drive of the Amiga. On the basis of this fact, the first viruses 
which afflicted the Amiga, were stored in the boot block. 

To create an effective virus, it must always be protected from being 
deleted from memory when a reset occurs. The reset routine can be 
altered so that it can be used to branch into the virus program and to 
start the reproduction process. 

The SCA The first virus which used the boot block is the well known SCA 

virus (Swiss Cracker's Association) virus. It is of course reset protected. It 

also uses the disk reset to reproduce itself. For reproduction the virus is 
written into the boot block of the disk which is in the drive during the 
disk reset After a certain number of copy processes, the virus displays a 
message on the screen. 

Since this virus was one of the first of its species it spread widely 
because few users knew how to find and remove it 

SCA made few friends with this virus which contained a bragging 
message. It was possible for it to destroy the important copy protection 
information on a commercial disk, therefore making the disk unusable. 

The Byte This SCA virus was followed by other boot block viruses. One of these 

Bandit virus is the Byte Bandit virus which is programmed more elegantly, but has 
some errors. 

It uses the fact that the boot block is read after every insertion of a disk 
to verify the validity of the disk. All read and write procedures which are 
initiated by the operating system on the disk, are performed through the 
trackdisk device. A message is sent to the device and is processed after a 
jump through a vector contained in the device structure. The virus 
changes this vector into its own program. It intercepts the message 
which indicates that the boot block should be read, and changes the read 
into a Write command. Then the buffer pointer which was set for the 
read of the boot block, is set to the buffer containing the virus. This 
trick spreads the virus during the insertion of a disk which isn't write 
protected. 
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Since the procedure for removal of viruses was known by the time this 
virus appeared, it did not become as widespread as the SCA virus. This 
was lucky since the virus was not very harmless. It caused a system 
crash which could only be remedied with a reset unless you know more 
about the virus (more on this later). The idea (not very original) of 
causing a system crash was probably selected because the boot block did 
not offer more storage space. 
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7 . 2 Virus rumors 



Rumors have circulated that viruses exist which could place themselves 
inside the battery backed memory of the real time clock of the Amiga 
2000 and Amiga 500. These viruses would then remain active even after 
the computer was switched off. These reports appeared in several 
publications. This was surprising since the authors (undoubtedly not 
computer novices) should have been aware of the fact that this is 
absolutely impossible. Impossible, since the battery backed memory is 
not large enopugh to store a virus. Even if it was sufficient (the clock 
buffer is about IK) to be stored in the computer after the power was 
switched off, the vector to the virus would have disappeared. A program 
in memory which is not started does not have the capability to spread 
itself and the operating system does not execute the data in the clock as 
a program. Therefore, this virus variant is a non-executable idea. 

Another rumor was spread that a virus existed which integrated itself 
into the write protected RAM of the Amiga 1000 where the operating 
system was stored. 

It's unlikely that a virus of this type exists, but under certain circum- 
stances a program can be stored in the Kickstart area of the Amiga 
1000. 

Writing a program, even a virus, into the Kickstart area is only possi- 
ble when a RAM expansion is present. In this case the Kickstart area 
can be made ready for writing with the assembler command Reset 
without switching off the RAM area where the program is stored (but 
only the Fast RAM). If the Reset command is executed in the Chip 
RAM, it switches off its own RAM, and this leads to an unavoidable 
system crash. 

Another virus type has surfaced recently. These are the viruses which 
insert themselves into the CLI commands (such as the Dir command or 
me disk validator.) An attempt to execute an infected CLI command, or 
a disk validation, makes the virus active. Until now no such virus has 
been observed on the Amiga by the author. It is uncertain that they 
really exist, but it is probably possible to program a virus of this type. 

The dangerous aspect of this last type of virus is the fact that it is not 
limited to disks. It could spread to hard disk units. In addition it would 
be harder to find than the boot virus. 

Viruses which insert themselves into existing programs can only work 
on two principles. Either they enlarge the code by copying themselves 
behind the program, or they destroy the actual program code so no 
additional space is used on the disk. In both cases the virus can be 
easily identified and dealt with because of this. 
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7.3 Protection against viruses 



A general protection scheme against viruses unfortunately cannot be 
provided. Their spread can be limited by using only write protected 
disks whenever possible. 

The removal of boot block viruses is in general not a very difficult 
problem. The boot block can be initalized again with the CLI 
command Install. Please note that the computer must be switched off 
after the appearance of the virus and rebooted with a disk which is guar- 
anteed not to be infected. This is very important, because viruses whose 
construction correspond to the Byte Bandit virus intercept the Install 
command and write the virus on the disk again. To remove the virus 
from the disks, the user must ensure that the virus is not in the com- 
puter. 

The sequence for removing a Boot block virus is as follows: 

1.) Switch the computer off. 

2.) Boot with a disk which is not infected. 

3.) Copy the Install command onto the RAM disk: 

copy sys:c/install ram: 

4.) Remove the CL I disk from DFO and insert the infected disk. 
5.) Erase virus from disk: 

ram: install dfO: 

These five steps remove the virus from an infected disk. Caution should 
be used in using this technique since the mere fact that a disk has a non- 
standard boot block doesn't mean that it is infected, especially if it is a 
commercial program. 

Finally a useful tip. If a computer should crash without a recognizable 
reason (the display disappears and the computer doesn't react to 
anything) this could be caused by the Byte Bandit virus. In this case the 
computer should not be reset which would cause the loss of data. 
Pressing the lowest five keys from left to right, at the same time, 
brings the computer to "life" again. The virus is still in the computer, 
but the possibility exists to store the working files. 

The key combination is: 

[ALT] [Commodre] [SPACE] [AMIGA] [ALT] 
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8. The Trackdisk device 



We began the AmigaDOS chapter with a discussion of the partition 
hierarchy of the operating system. As we've seen the top level is 
AmigaDOS itself. The next level is the Trackdisk device. 

AmigaDOS uses the Trackdisk device for all disk operations. It has a 
fairly limited set of commands, but forms the heart of every disk access. 
It determines whether a disk is in the drive and if so, whether it is write 
protected. The most important assignment of the Trackdisk device is the 
reading and writing of information on the disk. 

Before discussing the usage of the Trackdisk device, you must 
understand how data is stored on disk. 
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8.1 



Divisions of a disk 



Stepper motor A disk-regardless of its size-is roughly divided into two structures. The 
first structure consists of concentric rings called tracks. Since the 
Amiga disk has two sides, the two tracks which lie on top of each other 
on either side comprise a cylinder. The read/write heads are always 
positioned over one of these cylinders. The heads are moved from one 
cylinder to another by the stepper motor. 

A normal Amiga disk consists of 80 cylinders with the motor moving 
the read/write heads between them. Cylinder is located on the outer- 
most ring and cylinder 79 on the innermost Since there are two tracks 
per cylinder you end up with 160 tracks. The tracks on the lower side of 
the disk have even numbers, those on the upper side have odd numbers. 
Track is in cylinder on the upper side; track 1 on the lower side of 
cylinder 0. It follows that the last track (track 159) can be found on 
cylinder 79 of the lower side. 

A track is divided into several sectors. The sectors are located consecu- 
tively on a track. The Amiga has 1 1 of these sectors in one track. The 
sector contains the actual data, 312 bytes. 

With these facts the storage capacity of a disk can be calculated. A disk 
has two sides. Each one of these sides has 80 tracks. Each track has 11 
sectors. Each sector contains S12 bytes. This results in: 

80 Cylinder * 2 Tracks * 11 Sectors * 512 bytes= 901,120 bytes 
or (Bytes/1024=K) = 880K 

Blocks The Trackdisk device does not calculate in side/track/sector format, but 

in logical sectors, called blocks. A block always corresponds to a sector 
somewhere on the disk. The blocks are numbered sequentially from to 
1,759. This division makes control of the disk much easier since work- 
ing with one variable (block number) is easier then with three; (side, 
track, sector). 

The first 1 1 blocks are on Side A (upper disk side) in track and cylinder 
0. The next 1 1 blocks (10-21) are on the lower side, also in cylinder 0, 
but in track 1. 

This constant changing of sides might appear at first to be clumsy. 
Considering that both read/write heads are operated by one motor, this 
organization actually saves time. Very often a series of connected 
blocks must be read. The two heads move only once to read two tracks 
instead of once for each side. 

The conversion of side track sector format to blocks uses the following 

formula: Block = 2*ll*Cylinder + ll*Side + Sector 
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8 . 2 Devices and their 

applications 



There are many different devices in the operating system of the Amiga, 
but all are constructed according to the same system. 

A device always consists of a data structure (the Device structure) and a 
task (simultaneously running program), which accepts the commands of 
the user program. Sending a command to a device is basically no differ- 
ent from sending a command to another task which is recognized there 
and processed. 

The complete transmission of the commands and results between tasks 
occurs through the message system of Exec. For this reason every task 
which wants to accept messages must provide a message port. The 
message transmission is similar to the transmission of a phone conver- 
sation. Without a telephone (message port), no conversation (message). 

To send a command to the Trackdisk device (the Trackdisk task), a 
message port is created. This is necessary because the task must not 
only send commands, but must also be in die position to receive replies 
(reply messages). 

A message port is a structure which in C appears as follows: 



struct 


MsgPort 










{ 




/* 


Offsets 


*/ 


struct 


Node mp_Node; 


/* 





$00 


*/ 


OBYTE 


mp_Flags; 


/* 


14 


$0E 


*/ 


UBYTE 


mp_SigBit; 


/* 


15 


$0F 


*/ 


struct 


Task *mp_SigTask; 


/* 


16 


$10 


*/ 


struct 
}; 


List mp_MsgList; 


/* 


20 


$14 


*/ 



The Node structure at the beginning connects the individual ports in a 
global list of the operating system. If the port should remain local, this 
structure remains unused. 

A port is initialized with the Library function CreatePort. This function 
is normally already in the C library and does not have to be input 

#include "exec/port s . h" 
linclude "exec/memory . h" 

struct MsgPort 
♦CreatePort (name, pri) 
char *name; 
long pri; 
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< 

register struct MsgPort *mp; 
register long sig; 
long AllocSignal ( ) ; 
void *AllocMem ( ) ; 
struct Task *FindTask(); 

if ((sig = AllocSignal (-1L) ) == -1) 

return (0) ; 
if ( (mp = AllocMem( (long) sizeof (*mp), MEMF_POBLIC 

|MEMF_CLEAR)) == 0) 
{ 

FreeSignal (sig) ; 
return (0) ; 
) 

mp->mp_Node . ln_Name = name; 
mp->mp_Node . ln_Pri = pri; 
mp->mp_Node . ln_Type = NT_MSGPORT; 
mp->mp_Flags =0; 
mp->mp_SigBit = sig; 
mp->mp_SlgTask = FindTask(OL) ; 
if (name) 

AddPort (mp) ; 
else 

NewList (Smp->mp_MsgList) ; 
return (mp) ; 



The only parameters needed for this function are a Name string and a 
Priority. A name is only required for global message ports to make the 
search easier for other tasks. For device ports "NULL" is sufficient as a 
name. The priority does not matter and a null is also sufficient here as a 
parameter. 

The function obtains some memory for the Message Port structure and 
initializes the most important entries. 

First the Node structure is processed; then the pointer to the task whose 
message port is involved; and finally the function must set the 
Signalbit. The Signalbit tells the task later if a message has arrived at 
the port. Every task has only a limited number of Signalbits. One of 
the bits can be reserved with AllocSignal. For device accesses, the 
signal bit tells if the device is finished. 

Finally the function adds a global port with AddPort to the other global 
ports. For local ports only a List structure for the messages to follow is 
initialized. This occurs again with a Library function: NewList. 

If the port is no longer needed, it can be made to disappear with the 
DeletePort function: 

tinclude "exec/ports. h" 
♦include "exec/memory. h" 
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DeletePort (mp) 

register struct MsgPort *mp; 

{ 

if (mp->mp_Node • ln_Name) 
RemPort (mp) ; 

mp->mp_Node . ln_Type = -1; 

mp->mp_MsgList . lh_Head = -1; 

FreeSignal ( <long)mp->mp_SigBit) ; 

FreeMem(mp, (long) sizeof (*mp) ) ; 
} 

First DeletePort tests if this is a global port If this is the case, the 
Exec function RemPort removes the message port from the message 
port list. Then the function releases the Signalbit and the memory 
which were occupied 

To send a command, an IORequest structure is needed. The backbone of 
an IORequest structure is a Message structure. The Message structure 
serves as an aid for the transmission of commands. The command to be 
transmitted is not in the Message structure, but in the higher level 
IORequest structure. 

The Message structure has the following appearance: 



struct Message 








{ 




/* Offsets 


*/ 


struct Node 


mn_Node; 


/* $00 


*/ 


struct MsgPort 


*mn_ReplyPort ; 


/* 14 $0E 


*/ 


OWORD 


mn_Length; 


/* 18 $12 


*/ 



>; 

The Node structure takes over the concatenation of the messages within 
the message port list The ReplyPort is a pointer to the Message Port 
structure of the task to which the message is returned by the Trackdisk 
task with the return values at the end of the command. At the end is the 
length of the message in bytes. This indication is necessary since the 
actual message follows the Message structure and its length can vary. 
The message to be sent in mis case is the IORequest structure. 

The IORequest structure has the following appearance: 

struct IORequest 

( /* Offsets */ 

struct Message io_Message; /* $00 */ 

struct Device *io_Device; /* 20 $14 */ 

struct Unit *io_Onit; /* 24 $18 */ 

UWORD io_Comraand; /* 28 $1C */ 

UBYTE io_Flags; /* 30 $1E */ 

BYTE io_Error; /*31 $1F */ 

}; 

The normal IORequest is not usable for the Trackdisk device and for 
this reason an extended version exists: 
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IOStandard 


struct 


IOStdReq 












Request: 


{ 






/* 


Offsets 


*/ 




struct 


Message 


io_Message; 


/* 





$00 


*/ 




struct 


Device 


*io_Device; 


/* 


20 


$14 


*/ 




struct 


Unit 


*io_Unit; 


/* 


24 


$18 


*/ 






DWORD 


io_Command; 


/* 


28 


$1C 


*/ 






UBYTE 


io_Flags; 


/* 


30 


$1E 


*/ 






BYTE 


io_Error; 


/* 


31 


$1F 


*/ 






ULONG 


io_Actual; 


/* 


32 


$20 


*/ 






ULONG 


io_Length; 


/* 


36 


$24 


*/ 






APTR 


io_Data; 


/* 


40 


$28 


*/ 






ULONG 


io_Offset; 


/* 


44 


$2C 


*/ 



); 

The complete device parameter interchange runs through the last seven 
entries of the IOStdReq structure. "io_Command" contains the code of 
the command to be executed. The other parameters result from the vari- 
ous commands. 

To arrange an IORequest, there is a Library function: 

struct IORequest 

*CreateExtIO( mp, size ) 

struct MsgPort *mp; 

long size; 

{ 

register struct IORequest *iop; 

void *AllocMem(); 

if (mp == 0) 

return (0) ; 
if ( (iop=AllocMem<size, MEMF_PUBLIC|MEMF_CLEAR) ) == 0) 
return (0) ; 
iop->io_Message.mn_Node.ln_Type = NT_MESSAGE; 
iop->io_Message.mn_Length = size; 
iop->io_Message.mn_ReplyPort = mp; 
return (iop) ; 
) 

This function obtains the required memory for the structure to be 
created. Since the length of the structure can vary, the length must be 
indicated in bytes. In this case the length is 48 bytes (length of the 
IOStdReq structure). The function also requires the address of the 
message ports to which the message is returned after the completion of 
the I/O command. Finally the call returns the address of the just created 
IORequest 

If the IORequest is no longer required, the occupied memory space 
should be released. This can be done with the following function: 

DeleteExtlO(iop) 

register struct IORequest *iop; 

{ 

if (iop = 0) 
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DeleteExtlO(iop) 

register struct IORequest *iop; 

{ 

if (iop == 0) 
return; 

iop->io_Message.mn_Node.ln_Type = -1; 

iop->io_Device = -1; 

iop->io_Unit = -1; 

FreeMem(iop, (long) iop->io_Message.mn_Length) ; 
} 

Some effort can be saved by maintaining the IOStdReq structure. For 
this two small Library functions exist which are similar to the last one 
mentioned: 

#include <exec/io.h> 

struct IOStdReq 

*CreateStdIO (mp) 

struct MsgPort *mp; 

{ 

struct IOStdReq *CreateExtIO() ; 

return (CreateExtIO(mp, (long) sizeof (struct IOStdReq) )) ; } 

DeleteStdlO(iop) 
struct IOStdReq *iop; 
{ 

DeleteExtlO(iop) ; 
) 

Nothing much new has been added with these functions. CreateStdIO 
only saves the indicate length of IOStdReq. For DeleteStdIO nothing 
changes. 
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Name 
Unit 



lORequest 

Flags 
Error 



The practical part of the chapter begins here. Additional information 
about the use of various structures will also be presented here. 

Before work can start with a device, two structures must be initialized. 
Through CreatePort a message port is created for the replies from the 
Trackdisk devices. CreateStdIO produces a IOStdReq structure. 

After this has happened, the program must prepare the device for access 
by the task. This happens with the OpenDeviceO function. The return 
is the number of errors that may have occurred. 

error = OpenDevice (devName, unitNumber, lORequest, flags) 
DO AO DO Al Dl 

A pointer to a string, in which the name of the device has been stored. 
Here "trackdisk.device". 

The number of the unit which is accessed (0 to 3). For every attached 
drive there is a unique task. Through the unit number the message port 
of the task which is responsible for the drive is determined. The port is 
entered into the lORequest structure as ioDevice pointer. The 
lORequest structure (the command) is then sent to this port 

The pointer to the lORequest structure which is sent to the message 
port of the Trackdisk task should be stored. 

Set to null for opening the Trackdisk devices. 

The message returned from the OpenDevice function. A value not equal 
to null signals and error. 

The opening of the devices appears as follows: 

diskport = CreatePort (0, ) ; 
diskreq = CreateStdIO ( diskport ) ; 
OpenDevice) TD_NAME, 0, diskreq, ); 

. . . (Device accesses start here) . . . 

CloseDevice ( diskreq ) ; 
DeleteStdIO ( diskreq ) ; 
DeletePort ( diskport ) ; 

If the device was opened with OpenDevice, the command transmission 
can start The figure below shows a device command's execution. 
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Hie transmission of the command in the form of a IORequest structure 
can be performed with two commands. Either DoIO or SendIO can be 
used, although the latter is not as common. The difference between the 
two functions is in the treatment of the message which was sent, after 
the Trackdisk task has received it 

The DoIO function waits until the Trackdisk task has completed its 
assignment and has returned a message. In contrast, SendIO does not 
wait for the return message from the task. This must be done by the 
programmer. Those not skilled in programming of devices, should only 
work with DoIO. A pointer to the IORequest structure is passed to the 
DoIO and SendIO functions. 



I Task I 



DoIO 

SendIO 



U 



Msg Port 



Task 



MsgList 



IORequest 




Message 


j 
i 


: 
| 


Reply Port 




Length 


Device 


j 


Unit 


IO-Data 



M 



Trackdisk .Device! 



| Reaultf 





Before device command execution 






After device command execution 





Figure 2: The execution of a Device command 

The device gets a command code and possibly some parameters from 
IORequest (in the illustration under IO-Data). 

Once the command has been executed (for example a sector has been 
read), or has been interrupted with AbortIO, the device sends the 
IORequest with the output parameters back to the reply port (port 
initialized by the task), which was indicated in the IORequest. This is 
done by the Exec function ReplyMsg. The user should not forget that 
every IORequest-no matter what type-is basically only a simple 
message! 

If the message (the IORequest) arrives at the reply port, the Signalbit is 
released by Exec. If the task was waiting for the signal (during DoIO), 
it can now evaluate the result 

Here is a small program which tests the write protect of the disk in 
drive DFO: 
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/* */ 

/* Test Write Protect of the Diskette in DFO: */ 
/* use +L compile option, -lm -lc link option */ 
/* JEA, 11-07-87 */ 

/* */ 

♦include <exec/types.h> 
tinclude <devices/trackdisk.h> 

/* */ 

/* Main Program */ 

/* */ 

/* */ 

/* */ 

main () 

< 

struct MsgPort *diskport; 

struct IOReq *diskreq; 

diskport = CreatePort ( 0L, 0L ) ; 
diskreq = CreateStdIO( diskport ); 
OpenDevice ( TD_NAME, 0L, diskreq, 0L ) ; 

diskreq->io_Command = TD_PROTSTAT0S; 

DoIO( diskreq ) ; 

printf( "Write Protect: %ld\n", diskreq->io_Actual ); 

CloseDevice ( diskreq ) ; 
DeleteStdIO( diskreq ); 
DeletePort ( diskport ) ; 
) 

First the program opens the Trackdisk device with Unit (DFO:). Then 
it passes the TD_PROTSTATUS command in the io_Command field 
ofthelORequests. 

The input parameters are now initialized. Only the IORequest remains 
to be sent by the program to the Trackdisk device. The simplest method 
is to use the Exec function DoIO. Exec waits until the device is 
finished and returns to the program. Since during the processing of the 
IORequest structure the program did not have to perform other tasks, it 
(our task) can go into waiting. 

After DoIO has returned, the output parameter is in the ioActual field 
of the IORequest output 

255 = Disk is write protected 
= Disk is not write protected 

Once the write protect status has been output, the program must release 
all the structures it used. The program can be terminated only after this 
has occurred. 

The most important assignment of the Trackdisk devices is the reading 
and writing of data on disks: 
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/* */ 

/* Read Sector with Trackdisk-Device */ 

/* */ 

/* JEA, 12-07-87 */ 

/* v 

♦include <exec/types.h> 
♦include <exec/memory.h> 
♦include <devices/trackdisk.h> 

/* v 

/* Turn Motor on or off */ 

/* */ 

/* */ 

/* v 

MotorSwitch( iosr, flag ) 
struct IOStdReq *iosr; 
LONG flag; 
{ 

iosr->io_Command = TD_MOTOR; 
iosr->io_Length = flag; /* l=an and 0=aus */ 



DoIO(iosr) ; 



} 



/* ir/ 

/* Read Logical Block */ 

/* */ 

/* */ 

/* it/ 

LONG *GetBlock( iosr, block, map ) 

struct IOStdReq *iosr; 

LONG block; 

LONG *map; 

{ 

LONG *ret = NULL; 

iosr->io_Command = CMD_READ; 
iosr->io_Length = TD_SECTOR; 
iosr->io_Data = (APTR)map; 
iosr->io_Offset = TD_SECTOR * block; 
DoIO(iosr) ; 

return (ret) ; 
) 

/* *! 

/* Read Sector 

/* */ 

/* ^ i , / 

LONG *GetTSH( iosr, track, sector, head, map ) 

struct IOStdReq *iosr; 

LONG track; 

LONG sector; 

LONG head; 

LONG *map; 

{ 

LONG *ret = NULL; 
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iosr->io_Command = CMD_READ; 

iosr->io_Length = TD_SECTOR; 

iosr->io_Data = (APTR)map; 

iosr->io_Offset = TD_SECTOR* (sector + NUMSECS*head 

+ NOMSECS*NOMHEADS*track ); 
DoIO(iosr) ; 

return (ret) ; 
} 

/* */ 

/* Main Program */ 

/* */ 

/* */ 

main ( ) 

{ 

struct MsgPort *diskport; 

struct IOStdReq *diskreq; 

LONG *buf; 

LONG loop; 

buf = (LONG*) AllocMem( 512L, MEMF_CHIP ); 

diskport = CreatePort ( OL, OL ) ; 
dlskreq = CreateStdIO( diskport ); 
OpenDevice( TD_NAME, 0, diskreq, ); 

MotorSwitch( diskreq, 1L ); 

GetBlock ( diskreq, OL, buf ) ; 
for( loop=0; loop<128; loop++ ){ 
printf( "%lx ", buf [loop] ); 

) 

printf ( "\n\n" ); 

GetTSH( diskreq, OL, OL, OL, buf ); 
for( loop=0; loop<128; loop++ ){ 

printf ( "%lx ", buf [loop] ) ; 
} 
printf ( "\n" ) ; 

MotorSwitch( diskreq, OL ) ; 

CloseDevice ( diskreq ) ; 
DeleteStdIO ( diskreq ); 
DeletePort ( diskport ) ; 

FreeMem( buf, 512L ); 



Before this program opens the Trackdisk device, it reserves 512K of 
memory for itself in chip memory. A sector is read into this buffer 
later. Since the Trackdisk device uses the blitter for decoding of track 
data, the sector buffer must be in the lower part (in the lower 512K) of 
memory in the chip memory area. 
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Next the TDMOTOR command switches on the motor of the drive 
since it must run for the read/write access. The Trackdisk device waits 
for the flag which determines if the motor is switched on (1) or off (0). 
This is done in the io_Length field of IORequest DoIO then handles 
the device. 

The CMDREAD command reads bytes from the disk. The field 
ioJLength justifies its name. It contains the number of bytes to be read. 
In this case, since one sector is read, it is S12K. 

The Trackdisk device looks in io_Data for the address of the buffer into 
which the byte read is copied. 

In order to read a sector it must be known what sector we want to read. 
This is recorded, in bytes, in ioOffset. The program then converts the 
information from bytes to block numbers. When this is done the 
command is executed with DoIO. 

Sometimes it is important to address a sector through the side, track, 
sector format instead of the logical block number. The conversion 
formula which was described earlier is very useful here. 

For example, this program reads the first sector, called the bootsector, 
with the two possible methods and outputs the content in hexadecimal 
numbers. 

After read access, the program switches the device motor off again, 
closes the device and releases the sector buffer. 



8.3.1 The commands in overview 



Every device can be addressed with a standard set of commands which 
are defined in the Include file "Exec/io.h": 

#define CMD_INVALID 0L 
♦define CMD_RESET 1L 
♦define CMD_READ 2L 
♦define CMD_WRITE 3L 
♦define CMD_UPDATE 4L 
♦define CMD_CLEAR 5L 
♦define CMD_STOP 6L 
♦define CMD_START 7L 
♦define CMD_FLUSH 8L 
♦define CMDJJONSTD 9L 

All of these standard commands begin with "CMD". Every device can, 
in addition, have its own special commands. These start at 
CMD NONSTD. The additional commands of the Trackdisk devices are 
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contained in the Include file "Devices/Trackdisk" offset to 
CMD_NONSTD: 

#define TD_MOTOR (CMD_NONSTD+0) 
♦define TD_SEEK (CMD_N0NSTD+1) 
#define TD_FORMAT (CMD_N0NSTD+2) 
#define TD_REMOVE (CMD_N0NSTD+3) 
#define TD_CHANGENUM (CMD_N0NSTD+4) 
#define TD_CHANGESTATE (CMD_N0NSTD+5) 
#define TD_PROTSTATUS (CMD_N0NSTD+6) 
♦define TD_RAWREAD (CMDJJONSTD+7) 
♦define TD_RAWWRITE <CMD_N0NSTD+8) 
♦define TD_GETDRIVETYPE <CMD_N0NSTD+9) 
♦define TD_GETNOMTRACKS (CMD_NONSTD+10) 
♦define TD_ADDCHANGEINT (CMD_N0NSTD+11) 
♦define TD_REMCHANGEINT (CMD_N0NSTD+12) 
♦define TD_LASTCOMM (CMD_N0NSTD+13) 

♦define TDF_EXTCOM (1L«15) 

♦define ETD_WRITE (CMD_WRITE I TDF_EXTCOM) 
♦define ETD_READ (CMD_READ I TDF_EXTCOM) 
♦define ETD_MOTOR ( TD_MOTOR I TDF_EXTCOM) 
♦define ETD_SEEK (TD_SEEK| TDF_EXTCOM) 
♦define ETD_FORMAT (TD_FORMAT|TDF_EXTCOM) 
♦define ETD_OPDATE (CMD_UPDATE|TDF_EXTCOM) 
♦define ETD_CLEAR (CMD_CLEAR I TDF_EXTCOM) 
♦define ETD_RAWREAD (TD_RAWREAD |TDF_EXTCOM) 
♦define ETD_RAWWRITE (TD_RAWWRITE|TDF_EXTCOM) 

These commands have "TD" in front for Trackdisk device. Here the two 
commands TDMOTOR and TD_PROTSTATUS are also defined. 
They are of interest only to the Trackdisk device. 

The CMD_READ command is different Since bytes are read from 
every device, it makes sense to standardize the definition of this 
command for all devices. 

The last category of Trackdisk commands are the Extended commands. 
They have a prefix of "ETD". They differ from the normal commands 
only through a set bit (TDF_EXTCOM). These extended commands 
permit some additional features, but require an extended IORequest 
structure. Because of this, a section has been devoted to these 
commands. 

The Trackdisk device recognizes the following "not extended" 
commands (the 10 section in the IORequest structure contains the indi- 
vidual parameters): 



CMD_RE AD Reads bytes from the disk in the drive. 



OWORD io_Command; CMD_READ 

UBYTE io_Flags; 

BYTE io Error; Possible error message. 
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ULONG 
OLONG 
APTR 
ULONG 



io_Actual; 
io_Length; 
io_Data; 
io Offset; 



Number of Bytes to be read. 
Pointer to Data Buffer. 
Byte-Offset, where to start 
read. 



CMD_WRITE Writes bytes on the disk in the drive. 



UWORD 


io_Command; 


CMD_WRITE 


UBYTE 


io_Flags; 




BYTE 


io_Error; 


Possible error message. 


ULONG 


io_Actual; 




OLONG 


io_Length; 


Number of Bytes to written 


APTR 


io_Data; 


Pointer to Data buffer. 


OLONG 


lo_Offset; 


Byte-Offset, where write 
starts. 



CMDUPD ATE The Trackdisk device always reads entire tracks and stores them in RAM 
until another track is requested. During a write, data is sometimes only 
changed in RAM. This command forces an immediate write of the track 
buffer to the disk if its content has changed. 



Possible error message. 



UWORD 


io_Command; CMD_OPDATE 


UBYTE 


io_Flags; 


BYTE 


io_Error; Possi 


ULONG 


io_Actual; 


ULONG 


io_Length; 


APTR 


lo_Data; 


OLONG 


io Offset; 



CMD CLEAR 



The track buffer of the Trackdisk devices is declared invalid so that the 
track is read again on the next access. 





WORD 


io_Comraand; 


CMD_CLEAR 




OBYTE 


io_Flags; 






BYTE 


io_Error; 


Possible error message. 




OLONG 


io_Actual; 






OLONG 


io_Length; 






APTR 


io_Data; 






ULONG 


io_Offset; 




TD_MOTOR 


Switches the motor of the device 


on or off. 




DWORD 


io_Command; 


TD_MOTOR 




OBYTE 


io_Flags; 






BYTE 


io_Error; 


Possible error message. 




OLONG 


io_Actual; 






OLONG 


io_Length; 


0: Motor off/l:Motor on 




APTR 


io_Data; 






ULONG 


io Offset; 





TD FORMAT 



This command formats one or more indicated tracks. It should be noted 
that the track offset must be converted to bytes. 



149 



8. The Trackdisk device 



Amiga disk drives inside and out 



BYTE 

ULONG 

ULONG 

APTR 

ULONG 



io_Error; 
io_Actual; 

io_Length; 

io_Data; 
io Offset; 



Possible error message. 

Indicates the number of tracks 

in Bytes ( ! ) . 

Pointer to buffer which contains 

the track (s) . 

Points (numbered in Bytes) to 

the start track. 



TDREMO VE An interrupt is initialized every time a disk is removed or inserted. 



UWORD 


io_Command; 


TD_REMOVE 


UBYTE 
BYTE 


io_Flags; 
io_Error; 


Possible error message 


ULONG 
ULONG 
APTR 


io_Actual; 
io_Length; 

io_Data; 


Contains pointer to a so 



interrupt structure. If a null 
is passed here, the interrupt is 
blocked. 



ULONG io Offset; 



TD SEEK 



Moves the read/write heads over the track in which the indicated offset 
byte is located. No write or read operations occur. 

TD_SEEK 

Possible error message. 



UWORD 


io_Command; 


UBYTE 


io_Flags; 


BYTE 


io_Error; 


ULONG 


io_Actual; 


ULONG 


io_Length; 


APTR 


io_Data; 


ULONG 


io Offset; 



Byte-Offset for Positioning. 

TD_CHANGNUM 

Returns the counter condition indicating how many times a disk was 
inserted or removed from the drive. 

TD_CHANGENUM 

Possible error message. 
Disk-Change-Counter . 



UWORD 


ic_Command; 


UBYTE 


io_Flags; 


BYTE 


io_Error; 


ULONG 


io_Actual; 


ULONG 


io_Length; 


APTR 


io_Data; 


ULONG 


io Offset; 



TDCHANGESTATE 

Tests to see if a disk is in the drive. 



UWORD 


io_Command; 


TD_CHANGESTATE 


UBYTE 

BYTE 

ULONG 


ioJFlags; 
io_Error; 
io_Actual; 


Possible error message 
0: Disk inserted, 
<>0: Disk removed. 


APTR 
ULONG 


io_Data; 
io Offset; 
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APTR 
DLONG 



io_Data; 
io Offset; 



TD_PROTSTATUS 

Tests to see if the inserted disk is write protected. 



UWORD 
UBYTE 
BYTE 
ULONG 

ULONG 

APTR 

ULONG 



io^ommand; 
io_Flags; 
io_Error; 
io_Actual; 

io_Length; 
io_Data; 
io Offset; 



TD_PROTSTATOS 

Possible error message. 

:Disk not write protected, 

<>0:Disk is write protected. 



TD_R AWRE AD Permits reading of a track without decoding. Can be used to wait for the 
index hole. 



UWORD 
UBYTE 

BYTE 

ULONG 

ULONG 

APTR 
ULONG 



io_Command; 
io_Flags; 

io_Error; 

io_Actual; 

io_Length; 

io_Data; 
io Offset; 



TD_RAWREAD 

IOTDF_INDEXSYNC (if waiting for 
the Index is desired) 
Possible error message. 

Number of data to be read 
(must be smaller than 32, 768) . 
Pointer to data buffer 
Number of the track to be read 
(track not cylinder) . 



TD RAWWRITE 



Permits the writing of a track without decoding. Can be used to wait for 
the index hole. 



UWORD 
UBYTE 

BYTE 

ULONG 

ULONG 

APTR 
ULONG 



io_Command; 
io_Flags; 

io_Error; 

io_Actual; 

io_Length; 

io_Data; 
io Offset; 



TD_RAWWRITE 

IOTDF_INDEXSYNC (if wait for 
Index is desired) 
Possible error message. 

Number of data to be written 
(must be smaller than 32,768) 
Pointer to data buffer. 
Number of the track to be 
written (track not cylinder) . 



TD_GETDRIVETYPE 

Receives the type of the attached drive. 



UWORD 


io_Command; 


TD_GETDRIVETYPE 


UBYTE 


io_Flags; 




BYTE 


io_Error; 




ULONG 


io_Actual; 


Type of the drive: 
DRIVE3_5/DRIVE5_25 


ULONG 


io_Length; 




APTR 


io_Data; 




ULONG 


io_Offset; 
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TD 



GETNUMTRACKS 

Receives the number of tracks. 




DWORD 


io_Command; 


TD_GETNUMTRACKS 


UBYTE 

BYTE 

ULONG 


io_Flags; 
io_Error; 
io_Actual; 


Number of the T 


ULONG 
APTR 

ULONG 


io_Length; 
io_Data; 
io Offset; 





TD_ADDCHANGEINT 

A command which appears in principle to be very good. It makes it 
possible to jump to several interrupts as soon as a disk is removed from 
the drive or inserted into the drive. The problem with this command is 
that no Interrupt structure (as in TD_REMOVE) can be passed. The 
IORequest structure is accepted as an Interrupt structure and is fit into 
the interrupt list. By inserting a IORequest structure instead of a Inter- 
rupt structure, the operating system crashes as soon as a jump occurs to 
the change interrupt. 

TD_REMCHANGEINT 

The command is used to remove an Interrupt structure from the 
Diskchange interrupt list It is unusable on the basis of an error during 
the TD_ADDCHANGEINT command because no personal interrupt can 
be included 



8.3.2 The extended commands 



As mentioned, the extended Trackdisk commands offer some extra 
features. To use them, the IORequest structure must be extended also. It 
is then known as "lOExtTD" and appears as follows: 



struct 


IOExtTD 








( 






/* Offsets 


*/ 


struct 


IOStdReq 


iotd_Req; 


/* $00 


*/ 




ULONG 


iotd_Count; 


/* 48 $30 


*/ 


>; 


ULONG 


iotd_SecLabel ; 


/* 52 $32 


*/ 



Basically not much has changed. Only two longwords have been added 
which the extension can handle. 

One is used to confirm that the user has not changed me disk without 
permission. During normal commands, the Trackdisk device writes a 
sector without checking if this is the right disk. Since the Trackdisk 
device counts how many times a disk was inserted or removed, it can 
test for an unauthorized change. 
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The program uses TD_CHANGENUM, the current change number, to 
determine if the right disk is in the drive when reading a sector. If the 
sector should be changed with ETD_WRITE, the program gives the 
Changenum through iotd_Count to the Trackdisk device. It now writes 
the sector to the disk only when the current change number and the one 
passed agree. 

How this is done can be seen in the Bitmap Analysis program which is 
described in Chapter 6. 

The next entry "iotdSecLabel" is a pointer to a data block which 
contains, in addition to the actual sector data the sector label data. These 
are identifications between sectors in a track. Since the Trackdisk device 
always works on a track basis with the disk, this information is already 
in the memory. Normally they are not required. 

Otherwise all extended commands operate like their "normal" counter- 
parts. 

The Include file Devices/Trackdiskh contains some useful constants for 
working with the disk: 

#define NUMCYLS 80 Number of cylinders. 

#define NUMSECS 11L Sectors per track. 

#define NUMHEADS 2 Heads per drive, 

•define MAXRETRY 10 Max. repetitions on error. 

#define NUMTRACKS (NUMCYLS*NUMHEADS) Tracks per disk. 

#define NUMUNITS 4L Devices connected. 

#define TD_SECSHIFT 9L Size of label area. 

Sdefine TD_NAME "trackdisk. device" Name of device. 
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8.4 



The Trackdisk structures 



To be able to understand the routines for disk control, as they are used 
by the operating system the most important structures are presented 
here. They are the Trackdisk Device structure and the Message Port 
structure. 

The Device Within the Device structure is data which is required for the organiza- 

structure tion of all the disk operations. This includes the pointers to additional 

structures (Msg. Port structures), which control the attached drives and 

take over the work. 

The Msg. port There is a Msg. Port structure for every attached drive. Besides the 
structure "naked" Port structure which is familiar from the C Include files, there 

are additional interesting entries which must be explained for the fol- 
lowing chapters. These additional entries are important for the control 
of the drive through the operating system. 

More details are provided in the following sections in the structure 
entries. 



8.4.1 



The Device structure 



The first explanation concerns the construction of the Trackdisk Device 
structure. We'll discuss some, but not all of the entries for this struc- 
ture. 



Offset Entry 



Explanation 



00 $00 struct Library 



34 $22 
36 $26 



40 
44 



78 



94 



$28 
$2E 



48 $30 

52 $34 

56 $38 

60 $3C 



$0000 

*Msg-Port 

*Msg-Port 

*Msg-Port 

*Msg-Port 

*ExecBase 

♦GfxBase 

♦DSKResource 



Library structure (valid for all 
Device structures) . 
Word to access longword-address. 
Pointer to Msg. -Port for Drive 0. 
Pointer to Msg. -Port for Drive 1. 
Pointer to Msg. -Port for Drive 2. 
Pointer to Msg. -Port for Drive 3. 
Pointer to ExecBase. 
Pointer to Gf xBase. 
Pointer to Disk-Resource. 



$4E *Timer. device Pointer to Timer-Device. 



$5E *ciab. resource Pointer to CIAB-Resource. 
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If a drive is not attached, the pointer to the corresponding Msg. port is 
null. 



8.4.2 



The Port structure 



Next is the description of those parts of the Msg. Port structure which 
are important 



Offset Entry 



Explanation 



00 $00 struct MsgPort 
34 $22 unit_Flags 



35 $23 unit_Pad 

36 $24 unit_OpenCnt 
38 $26 Change 1 

4 $28 Change2 

42 $2A Change3 

44 $2C 

4 8 $30 Wait 

52 $34 ErrorNum 
$35 Drive_Type 
$36 TrackNum 

56 $38 MaxOffset 



Usual Msg. Port structure. 
Flagbits used for the control 
of the device. 
Bit = 1 => Device busy 
Empty byte to reach even 
addresses. 

Counter for number of the tasks 
which access the device. 
First compression value for 
writing a track if the track 
number is higher than the value 
indicated here (80) . 
Second compression value for 
track indicated (not used 
($FFFF) ) . 

Third compression value for 
track indicated (not used 
($FFFF)) . 

StepTimeValue for time loop 
during stepping of head (3000) . 
Value for time loop after the 
desired track is reached 
(6000) . 

Number of errors permitted 
during disk access (10) 
Type of the attached drive (1 
for 3.5 disk) : 
Number of accessible tracks 
(160) 

Largest offset for disk 
$DC000 => 160 Tracks 



64 $40 Flagbits 



65 $41 DriveBit 



Control Bits: 

Bit 1 = 1 => Drive empty 

Bit 2 = 1 => Extended command 

Bit 3 = 1 => Close Device 

Bit 4 = 1 => Disk is protected 

Drivebits for Drive select 

register related to motor. 
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67 


$43 


DriveNum 


68 


$44 


*IoRequest 


72 


$48 


Sector 


74 


$4A 


Track 


76 


$4C 


Track 


78 


$4E 


♦LoadBuffer 



82 $52 *SaveBuffer 



90 $5A *Headbuffer 



94 



66 $42 ErrorCNT Counter for number of errors 

during disk access. 
Drive number. 

Pointer to IoRequest structure 
passed. 

Sector number to be read or 
written . 

Track number of the head. 
Track number of the head. 
Pointer to buffer into which 
the data from the disk is 
written (MFM-coded data) . 
Same as LoadBuffer, but write 
buffer. 

Pointer to data buffer, when 
the 16 empty bytes in the 
Block-Header should be decoded. 
Otherwise not set. 
$5E struct IoRequest IoRequest structure which is 

sent to the timer device during 
disk operations. 

134 $86 struct IoRequest IoRequest structure which is 

sent to the disk in the drive 
during maintenance. 
Port to which messages are sent 
when a certain process is 
finished, for example disk 
block ready. 

Message sent to the port 
(Offset 174) to indicate the 
end of a process. 

228 $E4 struct interrupt Structure for Disk-Block-Int. 
242 $F2 is_Data is_Data for Disk-Block- 
Int . 
24 6 $F6 is_Code is_Code for Disk-Block- 
Int. ($FEA6F2) 

250 $FA struct Interrupt structure for DiskSYNC-Int. 
264 $108 is_Data is_Code for DiskSYNC- 

Int . 
268 $10C ls_Code is_Code for DiskSYNC- 
Int. 

272 $110struct Interrupt Structure for Index-Interrupt 
286 $11E is_Data is_Data for Index-Int. 
290 $122 is_Code is_Code for Index-Int. 
($FEB38E) 

298 $12A CangeCNT Incremented when the disk is 

removed from the drive or 
inserted in it . 



174 $AE struct MsgPort 



208 $D0 struct Message 



With the help of these two structures, the routines which are used by 
the operating system, related to the drive, can be analyzed. 

In the following text, the Msg. port is also called Drive port 
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8.4.3 The Resource structure 



The third structure is the Trackdisk Resource structure which is used to 
control the drive in connection with multitasking. 

Some functions are available for work on the structure which are 
accessed like a library through jumps with negative offsets. Jumps are 
made to all functions with the base address of the Resource structure in 
A6. 

The functions have the following significance: 

Offset -6 $FC4A62 
Function: Sets bit for drive. 

Parameter passed: 
DO = Drive number. 

Return parameter: 

DO = $FF Drive was not yet present. 

DO = $00 Drive was present 

Offset -12 $FC4A6E 
Function: Erases bit for drive. 

Parameter passed: 
DO = Drive number 

Offset -18 $FC4996 
Function: Announce drive. 

If a drive is accessed by the operating system, access is prevented from 
another task to this or another drive at the same time since the access 
would occur through the same hardware registers. This would disturb 
access to the drive by the first task. To prevent this interference, a wait 
must occur for the release of the registers. The request to use the regis- 
ters is attached to the end of a list. If the list is not empty, the task 
goes into a waiting position until the registers are released. 

The message to wait for the release of the registers is the Message 
structure from the Drive Port structure with the offset 208: 

Parameter passed 

Al = Pointer to message to be added. 

Parameter returned: 

DO not equal to zero means that no wait is required. Access can start 

immediately. 
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Offset -24 $FC4A0E 
Function: Remove drive. 

One Trackdisk task releases the hardware registers for the others and 
sends a message to the next one on the list so it can continue its work. 

Offset -30 $FC4A74 
Function: Test if drive is present. 

Parameter passed: 
DO = Drive number 

Parameter returned: 

DO - $0000 Drive present 

DO = $FFFF Drive not present 

The data area of the structure appears as follows: 

00 $00 struct Library Standard Library structure as 

in all Resource structures. 

34 $22 *Reply-Message If a drive has been 

registered, this is the 
pointer to the Message 
structure (Offset 208) in the 
Port structure. 
A set Bit signals a drive 
present. If Bit 7 is set, a 
drive is registered. 

Pointer to ExecBase structure. 

Pointer to CIAB resource. 

Words which signal if the 

drive is connected. 

$FFFF => no Drive 

$0000 => Drive 

List for drive registration. 



38 


$26 


DriveBits 


39 


$27 




40 


$28 


♦ExecBase 


44 


$2C 


*ciab . resource 


48 


$30 


60 $3C 


64 


$40 


struct List 
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8.5 



The internal processing of 
command parameters 



Now that we have described the programming for the Trackdisk devices 
and structures, the internal processing of the commands which are sent 
through the IORequest structure will now be covered. 

It's assumed that the IORequest structure has been initialized and the 
device was opened. 



8.5.1 



The DoIO function 



In Al is a pointer to the previously created IORequest structure. 



fc06dc move.l 
fc06de move.b 
fc06e4 move.l 
fc06e6 move.l 



A1,-(A7) 
#$01,30 (Al) 
A6,-(A7) 
20(A1),A6 



Save Al 

Set Quick-Bit 

Save A6 

Get Pointer to Device 



The following jump into the routine which sends the command (the 
IORequest structure) to the device, is discussed later. 



fc06ea jsr -30 (A6) 
£c06ee move.l (A7)+,A6 
fcOefO move.l (A7)+,A1 



Jump to 10 execution 
Get A6 
Get Al 



The WaitIO function which is used by the DoIO function starts here. 

fc06f2 btst #0,30(A1) Test Quick-Bit 

fc06f8 bne.s $fc0744 Done when set 

fc06fa move.l A2,-(A7) Save A2 

fc06fc move.l A1,A2 Pointer to IORequest to A2 

fc06fe move.l 14 (A2) ,A0 Pointer to Reply-Port 

fc0702 move.b 15(A0),D1 Get signal bit for Port 

fc0706 moveq #$00, DO Erase DO 

fc0708 bset D1,D0 Set Bit for Signal 

fc070a move.w #$4000, $dff 09a Disable- 

fc0712 addq.b #1,294 (A6) Macro 

fc0716 cmpi.b #$07,8(A2) Type of Msg. = ReplyMsg.? 

fc071c beq.s $fc0724 Branch if Type ok 

fc071e jsr -318 (A6) else wait for Msg. ( WaitO ) 

fc0722 bra.s $fc0716 indeterminate Jump 

fc0724 move.l A2,A1 IORequest to Al 

fc0726 move.l (A1),A0 

fc0728 move.l 4(A1),A1 remove Node from Reply-Msg-List 

fc072c move.l A0, (Al) 
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fc072e move.l 


A1,4(A0) 




fc0732 subq.b 


#1,294(A6) 


Enable- 


fc0736 bge.s 


$fc0740 




fc0738 move.w 


#$c000,$dff09a 


Macro 


fc0740 move.l 


A2,A1 


Pointer to IORequest to Al 


fc0742 move.l 


(A7)+,A2 


Create A2 


fc0744 move.b 


31(A1),D0 


Error-Flag to DO 


fc0748 ext.w 


DO 


Extend Sign 


fc074a ext.l 


DO 


Extend Sign 


fc074c rts 




Return Jump 



In the routine above, the quick bit is set first. Then the pointer to the 
device is put in A6 and a jump is performed to the BeginIO function. 

This terminates the passing of the command. All that remains is to 
wait for completion. If the quick bit was not reset, the routine is now 
finished. Otherwise a test is made if the IO process was completed. For 
this test it is sufficient to test the type of Message structure for "Reply 
Msg." If this is not the case, the task goes to a wait condition until a 
proper message arrives. 



8.5.2 



The BeginIO function 



In this function a command to be executed is tested for validity and 
passed to the Trackdisk task. The routine also tests if the command sent 
can be executed directly, or if it must be sent to the device. 

When the program returns from this routine, the message type in the 
IORequest structure is always set to "Message". The IORequest struc- 
ture is always passed to the Trackdisk task as a message in die routine. 
Passing occurs through the Message Port structure belonging to the 
drive and therefore the task 

The function jumps from the DoIO function with "JSR -30(A6)". 

The pointer to the IORequest structure is in Al. 



The pointer to the device is in A6. 



£e9£be olr.b 


31 (Al) 


Erase Errorflag 


fe9fc2 moveq 


#$00, DO 


Clear DO 


fe9fc4 move.b 


29(A1),D0 


io_Command to DO 


fe9fc8 cmpi.b 


#$16, DO 


Command permitted ? 


fe9fcc bcc.s 


$fea016 


branch if illegal (command : 


fe9fce move.l 


24(A1),A0 


Pointer to Device-Port 


fe9fd2 move.l 


#$000c61c2,Dl 


Command decode bits 


fe9fd8 btst 


D0.D1 


Execute command directly ? 


fe9fda bne.s 


$fe9ff0 


yes, execute command 


fe9fdc andi.b 


#$7e,30(Al) 


Erase flags up to Quick-Bit 


fe9fe2 move.l 


A6,-(A7) 


save A6 


fe9fe4 move.l 


52(A6),A6 


get ExecBase 



> 21) 
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fe9fe8 


jsr 


-366 (A6) 


PutMsg (Pass IORequest to 
Traokdisk-task) 


fe9fec 


move.l 


(A7)+,A6 


get A6 


fe9fee 


bra.s 


Sfea014 


unconditional Jump 


fe9ff0 


bset 


#7,30(A1) 


Set flag for execution 


fe9ff6 


move.b 


#$05,8(A1) 


Type in IORequest structure 

to "Message", 

to make WaitIO wait 


fe9ffc 


movem.l 


A3-A2, - (A7) 


save A2 and A3 


feaOOO 


move . 1 


A0,A3 


Pointer to Drive-Port to A3 


fea002 


move.l 


A1.A2 


Pointer to IORequest to A2 


fea004 


lea 


762 (PC) (=$fea300) ,A0 pointer to command tab 


£ea008 


lsl.w 


#2, DO 


command *4, to get Offset 


feaOOa 


move.l 


0(A0,D0.W),get AO jump 


feaOOe 


jsr 


<A0) 


Jump 


feaOlO 


movem.l 


(A7)+,A3-A2 


restore A2 and A3 


fea014 


rts 




Return jump 


fea016 


bsr.l 


$fea06e 


Error Output 


feaOla bar 


$fea014 


Return jump 



As already mentioned the routine tests if die command can be executed. 
Then follows a listing of commands which cannot be passed to the 
device. 

These commands are again divided into two sub-groups: the CMD and 
the TD commands. The CMD commands which follow aren't permitted 
for the Trackdisk device and are terminated during the direct call imme- 
diately with the error number 253 ($FD). 

CMD_RESET 
CMD_STOP 
CMD_START 
CMD_FLUSH 

In contrast with the CMD commands which are not permitted, are the 
allowable TD commands. The following are executed directly. 

TD_CHANGENUM 
TD_CHANGESTATE 
TD_GETDRIVETYPE 
TD GETNUMTRACKS 



8.5.3 



The Trackdisk task 



As described, most commands are passed from the BeginIO function to 
the Trackdisk task. This transmission occurs with the help of the 
message port which is "coupled" to the Trackdisk task. 
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The main task routine is busier than you would suspect because it has 
other duties besides processing the commands coming from the BeginIO 
function. Besides the IORequest structures, the task also receives addi- 
tional messages. 

This message ensures that every half-second the task tests to see if a 
disk was removed from its assigned drive. If this has happened, the 
heads are moved to cylinder zero and the delay with which the message 
wakes the task from its rest position is set for 2.5 seconds. The 
message, which now arrives every 2.5 seconds, causes the task to check 
if a disk was inserted in the meantime. The Amiga is (minimally) faster 
if there is no disk in the drive. 

The task differentiates between the two messages and passes them on, 
with the following exception: If the message was sent by the 
GoseDeviceO function, this task is not passed on, but executed directly 
in the main routine. 

To permit each of the four possible tasks the opportunity of addressing 
a disk drive, only one program is needed in memory; in this case in the 
Kick-ROM. Every task accesses the same program. This program is 
documented as follows: 

FEAE50 MOVE.L 8(A7),A6 Pointer to Track device 

FEAE54 MOVE.L 4(A7),A3 Pointer to Track port 

FEAE58 LEA 302(A3),A0 Pointer to Track task 

FEAE5C MOVE.L A0,16(A3) Enter Task as Msg.task for Port 

FEAE60 BSR.L $FE9960 check if disk was removed 

Start of the loop in which the task runs until a message is sent 

FEAE64 DSR.S $FEAE7A test for Msg. and process 

FEAE66 MOVE.L #$00000300, DO Bits, for which the task is waiting 

FEAE6C MOVE.L A6,-(A7) Save pointer to device 

FEAE6E MOVE.L 52(A6),A6 Get ExecBase 

FEAE72 JSR -318 (A6) Function: WaitO 

FEAE76 MOVE.L (A7)+,A6 Restore pointer to device 

FEAE78 BRA.S SFEAE64 unconditional jump 

In the following program a message portion is obtained from port and 
processed. 

A3 = Pointer to Msg. Port for the Drive. 

A6 = Pointer to the Trackdisk Device structure. 



FEAE7A BSET 


#0,34 (A3) 


Set Flag for Task 


FEAE80 BNE.L 


SFEAF4A 


End if Task is already working 


FEAE84 MOVE.L 


A3,A0 


Pointer to Port to A0 


FEAE86 MOVE.L 


A6,-(A7) 


save A6 


FEAE88 MOVE.L 


52(A6),A6 


get ExecBase 


FEAE8C JSR 


-372 (A6) 


Function: GetMsgO 


FEAE90 MOVE.L 


(A7)+,A6 


restore A6 


FEAE92 TST.L 


DO 


Message present ? 


FEAE94 BEQ.L 


$FEAF3E 


branch if no Msg. 


FEAE98 MOVE.L 


D0,A2 


Pointer to Message to A2 


FEAE9A BCLR 


#3, 64 (A3) 


Flag for Close-Device 
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FEAEAO 


BEQ.L 


$FEAF1E 


branch if no Close 


FEAEA4 


MOVE. I, 


82(A3),A0 


Storage buffer to AO 


FEAEA8 


BCLR 


#0,2 (AO) 


Was Buffer changed ? 


FEAEAE BEQ.L 


$ FEAEBA 


branch if not changed 


FEAEB2 


MOVE.L 


A0,78(A3) 


Storage buffer = Load buffer 


FEAEB6 


BSR.L 


$FEA958 


write Track 


FEAEBA 


MOVE.L 


82(A3),A0 


Write buffer to AO 


FEAEBE 


MOVEQ 


#$FF,D0 


-1 to DO 


FEAECO 


MOVE.W 


D0,0(A0) 


mark Track as invalid 


FEAEC4 


MOVE.W 


DO, 76 (A3) 


mark Track as invalid 


FEAEC8 


MOVEQ 


#$00, DO 


Value for motor off 


FEAECA 


BSR.L 


$FEA462 


Motor off 


FEAECE 


MOVE.L 


A6,A0 


save A6 


FEAEDO 


MOVE.L 


52(A0),A6 


get ExecBase 


FEAED4 


ADDQ.B 


#1,295 (A6) 


Forbit 


FEAED8 


MOVE.L 


A0,A6 


restore A6 


FEAEDA 


TST.W 


36 (A3) 


remove Drive ? 


FEAEDE 


BNE.L 


$FEAF12 


branch if not removed 



The drive is removed: 



FEAEE2 


MOVEQ 


#$00, DO 


clear DO 


FEAEE4 


MOVE.B 


67 (A3), DO 


Drive number to DO 


FEAEE8 


MOVE.L 


A6,-(A7) 


save A6 


FEAEEA 


MOVE.L 


60(A6),A6 


Pointer to Disk-Resource 


FEAEEE 


JSR 


-12 (A6) 


erase Motor-Bit 


FEAEF2 


MOVE.L 


(A7)+,A6 


restore A6 


FEAEF4 


LEA 


36(A6),A0 


Pointer to Driveports 


FEAEF8 


MOVEQ 


#$00, DO 


erase DO 


FEAEFA MOVE.B 


67 (A3), DO 


get Drive number 


FEAEFE 


LSL.L 


#2, DO 


determine Position of 


FEAF00 


ADDA.L 


D0,A0 


the Pointer to Port 


FEAF02 


CLR.L 


(A0) 


erase Pointer 


FEAF04 


SUBA.L 


A1,A1 


clear Al 


FEAF06 


MOVE.L 


A6,-(A7) 


save A6 


FEAF08 


MOVE.L 


52(A6),A6 


get ExecBase 


FEAFOC 


JSR 


-288 (A6) 


Function: RemTaskO (remove 
own Task) 


FEAF10 


MOVE.L 


(A7)+,A6 


restore A6 


FEAF12 


MOVE.L 


A6,-(A7) 


save A5 


FEAF14 


MOVE.L 


52(A6),A6 


get ExecBase 


FEAF18 


JSR 


-138 (A6) 


Function: Permit () 


FEAF1C MOVE.L 


(A7)+,A6 


restore A6 



Check where message originated: 

FEAF1E MOVE.L A2,A1 get Pointer to Message 

FEAF20 LEA 134(A3),A0 Pointer to Message from Timer 

FEAF24 CMPA.L A0,A2 is Msg. from Timer 

FEAF26 BNE.S $FEAF30 no, then command message 

FEAF28 BSR.L $FE9960 test if Disk was removed 

FEAF2C BRA.L $FEAE84 get new Message 

The part of the program which processes an IO structure sent by the 
programmer begins here: 

FEAF30 BSET #1, 34 (A3) Set Bit for processing of a command 
FEAF36 BSR.L $FEA01C process command 
FEAF3A BRA.L $FEAE84 get new Message 
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FEAF3E BCLR #1,34 (A3) clear Flags for 
FEAF44 BCLR #0,34 (A3) processing of commands 
FEAF4A RTS Return Jump 



8.5.4 



Differentiating the commands 



On the basis of the routine just described it can be seen that for a 
message sent by the timer, a branch is taken to $FE9960. In contrast 
the routine is continued at $FEA01C, when a command arrives. Of 
interest is the portion starting at $FEA01C, which controls the 
10 structure. 

Pointer in AO to the 10 Request structure. 
Pointer in A3 to the Drives port. 
Pointer in A6 to the Device structure. 



FEA01C MOVE.L 


A2,-(A7) 


save A2 


FEA01E MOVE.L 


A1,A2 


IO-Request to A2 


FEA020 ANDI.B 


#$FA, 64 (A3) 


erase Status-Bits 


FEA026 BSR.L 


SFE998C 


test for Disk in Drive 


FEA02A MOVE.L 


A2,A1 


IO-Request -Structure to Al 


FEA02C MOVE.W 


28(A2),D0 


io_Command to DO (command) 


FEA030 BTST 


#15, DO 


extended command ? 


FEA034 BEQ.S 


$FEA0S2 


branch if not extended 


FEA036 BSET 


#2, 64 (A3) 


set Bit for extended command 


FEA03C MOVE.L 


294(A3),D1 


number of Disk changes to Dl 


FEA040 CMP.L 


48(A2),D1 


compare with iotd_Count 
(within IOExtTD-Structure) 


FEA044 BLS.S 


$FEA052 


branch if value still OK 


FEA046 MOVE.B 


#S1D,31(A2) 


otherwise Disk changed too often 


FEA04C BSR.L 


$FEA1B0 


pass errors 


FEA050 BRA.S 


$FEA066 


unconditional Jump 



FEA052 MOVEQ 


#$00, Dl clear Dl 


FEA054 MOVE.B 


D0,D1 command to Dl 


FEA056 LSL.W 


#2,D1 determine Offset for conn 


table 




FEA058 LEA 


678(PC) (=$FEA300),A0 Pointer to Table 


FEA05C MOVE.L 


0(A0,D1.W),A0 get Address for command 


FEA060 JSR 


(AO) call command 


FEA062 BSR.L 


$FE998C test for Disk in Drive 


FEA066 MOVE.L 


(A7)+,A2 restore A2 


FEA068 RTS 


Return Jump 



The start addresses of the commands which can be called by the Track- 
disk device, are in a table starting at SFEA300. 
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The following listing shows the jump locations for various functions: 



$FEA06E 
$FEA06E 
$FEA734 
$FEA734 
$FEAAAA 
$FEAA94 
$FEA06E 
$FEA06E 
$FEA06E 
$FEA9FE 
$FEAA14 
$FEA07A 
$FE9AB6 
$FE9A96 
$FE9AA2 
$FEAA44 
$FEB2E8 
$FEB2EE 
$FEB3B6 
$FEB3C8 
$FE9AC2 
$FE9ADE 



=> CMD_INVALID 

=> CMD_RESET 

=> CMD_READ 

=> CMD_WRITE 

=> CMD_UPDATE 

=> CMD_CLEAR 

=> CMD_STOP 

=> CMD_START 

=> CMD_FLUSH 

=> TD_MOTOR 

=> TD_SEEK 

=> TD_FORMAT 

=> TD_REMOVE 

=> TD_CHANGNUM 

=> TD_CHANGESTATE 

=> TD_PROTSTATUS 

=> TD_RAWREAD 

=> TD_RAWWRITE 

=> TD_GETDRIVET¥PE 

=> TD_GETNUMTRAKS 

=> TD_ADDCHANGEINT 

=> TD REMCHANGEINT 



no Function (Error) 



no Function (Error) 
no Function (Error) 
no Function (Error) 



Executed directly. 
Executed directly. 



Executed directly. 
Executed directly. 
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8.6 



The RAW commands 

(with Index interrupt) 



Some of the information introduced next will be comprehended fully 
only after reading Chapter 9 (Direct disk access). It has been inserted 
here only because it fits more logically into the outline. 

As will be shown in Chapter 9, it isn't possible for the operating 
system to load data from the disk with the controller synchronized. The 
operating system normally loads without synchronization. The system 
can be forced into synchronization in connection with the RAW 
command. 

To understand how mis can be done the documented RAW functions are 
shown: 

Jump to TDRAWREAD: 

feb2e8 lea -3522 (PC) (=$fea528) ,A0 Pointer to Routine 

for reading Track 
feb2ec bra.s $feb2f2 unconditional Jump 

Jump to TDRAWWRJTE: 



feb2ee lea 



feb2f2 
feb2f6 
feb2fa 
feb2fc 
feb2fe 
feb300 
feb304 
feb308 
feb30c 
feb30e 
feb312 
feb316 
feb318 



movem.l 

link 

move . 1 

move.l 

moveq 

bsr.l 

move . 1 

cmp.l 

bcc.s 

bsr.l 

move.b 

bne.s 

move.l 



feb31c cmp.l 
feb322 bcc.s 
feb324 move.l 
feb328 lea 

feb32c btst 

feb332 beq.s 
feb334 lea 
feb338 move.l 
feb33a lea 



-3384 (PC) (=$fea5b8) ,A0 Pointer to Routine 
for writing Track 
A4-A2/D3-D2,-(A7) save Register 
A5,#-8 make space in Stack 

A1,A2 IORequest to A2 

A0,A4 Read/Write routines to A4 

#$01, DO Value for Motor on 

$fea462 switch motor on 

44(A2),D0 get Track-Number from IORequest 

54 (A3), DO Number legal ? 
$feb35c branch if Track too high 

$fea3da position head on Track 

D0,31(A2) enter Error in Error-Flag 
$feb34e branch if Error 

36(A2),D0 number of Bytes to be 

read/written 
$008000, DO more or equal to $8000 Bytes 
$feb35c branch if larger 

40(A2),A0 Pointer to Data buffer 
-3456(PC) (=$fea5aa),Al Pointer to Routine for 

switching on DMA 
#4,30(A2) IOTDF_INDEXSYNC in Flags 

set ? 
$feb348 branch if not set 

-8(A5),A1 Pointer to place in Stack 
A1.D1 Pointer to Dl 

82 (PC) (=$feb38e),Al Pointer to Interrupt 
Routine by Index-Sync 
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feb33e 


movent. 1 A1/D1,286(A3) 


enter values for is_Data ar 








is_Code 








for Index-Interrupt 


feb344 


lea 


30 (PC) (=$feb364),Al 


Pointer to Start- 
Routine for DMA 


feb348 


jsr 


(A4) 


jump to read/write routine 


feb34a 


move.b 


D0,31(A2) 


write Error in Error-Flag 


£eb34e 


move.l 


A2,A1 


Pointer to IORequest to Al 


feb350 


bsr.l 


$fealb0 


answer IORequest 


feb354 


unlk 


A5 


release Stack again 


feb356 


movent. 1 


(A7)+,A4-A2/D3-D2 


Restore Registers 


feb35a 


rts 




Return Jump 


feb35c 


move.b 


#$fc,31(A2) 


Move Error into Error-Flag 


feb362 


bra.s 


$feb34e 


unconditional Jump 



Next follows the routine to which a jump occurs if read/write is started 
through the DMA, if index synchronization should be on. 



feb364 move.l 286(A3),A0 
feb368 movent. 1 A6/D0, (A0) 

feb36c moveq #$10, DO 

feb36e move.l A6,-(A7) 

feb370 move.l 94(A6),A6 

feb374 jsr -24 (A6) 



feb378 move.l 
feb37a move.l 
feb380 move.l 
feb382 move.l 
feb386 jsr 
feb38a move.l 
feb38c rts 



<A7)+,A6 
#$00000090, DO 
A6,-(A7) 
94 (A6) ,A6 
-18 (A6) 
(A7)+,A6 



get is_Data (pointer to stack) 

Number of bytes to be read and 

enter pointer to device 

value for Index-Int. 

save A6 

pointer to CIAB resource 

If interrupt present 

clear interrupt 

restore A6 

permit value for Index int. 

save A6 

Pointer to CIAB-Resource 

permit Interrupt 

restore A6 

Return Jump 



After the index interrupt (CIAB flag) is released, the task waits, which 
can be seen in the documented Load routine in Chapter 9. 

If the index marking sets the flag line of the CIAB, an interrupt is 
triggered which is handled by the CIAB Resource structure. For this 
purpose the following entries are in the CIAB Resource structure start- 
ing at Offset 112 ($70): 



CIAB resource Offset 



Significance 



112 $70 Pointer to disk resource 

116 $74 Pointer to the program to be executed 

120 $78 Pointer to the Interrupt structure (not important) 

Starting at offset 116 there is the pointer to the program to be executed 
as soon as an interrupt is pending. The program starts at $FC4AB0. 

Al is the pointer to disk resource. 

fc4ab0 move.l 34(A1),D0 

fc4ab4 beq.s $fc4ad8 

fc4ab6 move.l D0,A1 

fc4ab8 movent. 1 78(A1),A5/A1 

jump for 



Was Drive registered ? 

End, if not registered 

Reply-Msg. to Al 

get Pointer to Data buffer and 
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fc4abe jmp 



(A5) 



Jump to Interrupt, 
normally $FEB38E 



fc4ad8 rts 

With offset 78 in the Reply Msg. (which starts at offset 208 in the 
Drives Port structure) therefore in $FC4AB8, a pointer is obtained to 
the is_Data entry (Offset 208+78 = 286 = $11E in drives port), which 
was set by the previously documented routine in $FEB364. The follow- 
ing longword is "is_Code" which represents the pointer to the Interrupt 
program. This program starts the reading of the track. 

The actual Interrupt program starts at $FEB38E and has the following 
appearance: 

Al is the pointer to the buffer which is in the stack (see $FEB2F6, 
$FEB334 and following). 



feb38e move.l A2,-(A7) 

feb390 move.l A1,A2 

feb392 move.l (A2),D0 

feb394 lea $dff000,Al 

feb39a bsr.l $fea5aa 

feb39e move.l 4(A2),A0 



feb3a2 move.l 
feb3a6 moveq 
£eb3a8 move.l 
feb3aa move.l 
feb3ac jsr 
feb3b0 move.l 
feb3b2 move.l 
feb3b4 rts 



94(AO),A0 

#$10, DO 

A6,-(A7) 

A0,A6 

-18 (A6) 

(A7)+,A6 

(A7)+,A2 



save A2 

Pointer to Buffer to A2 
number of data to be read 
(see SFEB368) 
Pointer to Custom-Chips 
start DMA 

Pointer to Track-Device 
(see SFEB368) 
Pointer to CIAB-Resource 
block value for Index Int. 
save A6 

CIAB rsource to A6 
block Index interrupt 
restore A6 
restore A2 
Return Jump 



Admittedly the entire process is somewhat confusing, but permits 
waiting for the index mark to synchronize the data read. 

The synchronization of the data is of value when it concerns reading 
copy protected data, reading a foreign format, etc. Using the operating 
system routines is simpler than writing completely new routines. 

To switch on synchronization of the byte to be read from disk, the 
previously described Index interrupt must be redirected to the user 
routine. The synchronization, which is always switched off by the oper- 
ating system, can be retroactively switched on. 

The best chance to redirect the interrupt to a proprietary routine, is at a 
location where it jumps through the vector in the CIAB Resource struc- 
ture (offset 116 = $74) to the routine at $FC4AB0. 

From there a branch occurs to the last Interrupt routine which performs 
the starting of DMA. Since the interrupt is now in the user's routine, 
synchronization can be switched on before the DMA is switched on. A 
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decision can also be made to read GCR format instead of MFM format 
without having to write a long user routine. 

The redirection of the interrupt and switching on of the synchronization 
occurs as follows: 



;get ExecBase 
/Pointer to Resource- 
;List in ExecBase 
/Pointer to Name 
/search for Resource 
/found ? 
;no. Error 
;ResourceBase to Al 
/Pointer to Interrupt 
/Program 
move.l aO,is_Code(al) /enter Pointer to Resource 
Error: rts /Return Jump 

ResName: dc.b "ciab. resource", /Resource-Name 

align. w /bring following Commands 

/to even Addresses 

/The Interrupt program, which is called by the 
/routines of the CIAB resource and performs the 
/Synchronization, starts here. 

Program: move.l 34(al),d0 /Drive registered 
beq prl /no. End 

move.l dO,al /Reply-Msg. to Al 

movem.l 78(al),a5/al /get Jump for Interrupt 
move.w #$8400,$dff09e /switch on Word sync 
move.w #$4489,$dff07e /pass Sync-Word 
jmp (a5) /start DMA 

prl: rts /Return Jump 

END 



FindName = -27 6 
ResourceList = 336 
is_Code = 116 


move.l $4,a6 

lea ResourceList (a6) ,a0 


lea ResName, al 
jsr FindName (a6) 
tst.l dO 
beq Error 
move.l dO,al 
lea Program, aO 
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Accessing the disk 
without DOS 



Now that you've learned how to access die disk with the help of DOS, 
direct mode access independent of DOS will be discussed. Following 
this, the formats used by the Amiga will be discussed. Before starting 
on these matters, an explanation of how the data is stored on the disk 
must be provided so the sections which follow can be understood. 
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9 . 1 The recording format on the 

disk 



To understand how information is stored on disk, it is necessary to 
become familiar with the basic principle of storing data on magnetic 
surfaces (cassette, tape, hard disk, disk). 

First of all you have to know that a magnetic field is created by a 
current passing through a coil. This is why a disk should not be stored 
near a transformer, speaker or electric motor. 

Induction Current passing through a coil produces a magnetic field. On the other 

hand a magnetic field acting on a coil produces a current. This phe- 
nomenon is called induction. 

A recording head, such as the read/write head of the disk drive, is basi- 
cally nothing more than a coil through which current passes to produce 
a magnetic field. The condition of the magnetic field, on or off, is 
stored on disk. 

Data is dissected into its smallest units (bits) for recording on a disk. 
These bits can assume only two states, or 1. The condition 1 is repre- 
sented by the presence of current, and the condition by the absence of 
current 

The data is sent to the r/w head (read/write head) of the drive in the form 
of current impulses with a timer providing the intervals in which an 
impulse is sent These impulses are recorded on the surface of the disk 
in the form of magnetization (north or south pole). 

When the read head rides over the disk, the magnetized coating on the 
surface of the disk creates impulses which are restored into bytes by the 
electronics of the drive. 

The data is stored on a disk in a form different from what you would 
expect. The and 1 bits are represented not only by a different magneti- 
zation (for example north pole = 1 and south pole = 0), but also then- 
change. A change in magnetization represents a 1 bit and unchanging 
magnetization within a certain time interval represents a bit 
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9.2 The MFM and GCR formats 



As mentioned, a 1 bit is represented by a changing magnetization and a 
bit through a steady magnetization. The writing of data with this 
method creates a problem. The phases of the unchanging magnetization 
cannot be too long or the controller goes out of synchronization. This 
is because of variations in the drive since its "orientation" on the disk. 
How is it possible to store data which consist partly of nulls? 

To do this, the data to be written must be coded before being recorded. 
The coding must be in such a manner that not too many null bits are 
recorded consecutively. 

Sync marking There is another reason for coding data which must be written on a disk. 
To read data from a disk, the controller must know where to start with 
the reading, i.e. where the data starts. To mark the start of data a bit 
combination is needed which cannot occur in normal data. A combina- 
tion of this type is called synchronization marking or sync marking. 

The required sync marking is also the second reason why data must be 
coded because any combination of data can occur. There are two different 
systems for coding data on the Amiga. 



9.2.1 The MFM format 



The Amiga uses MFM coding for the encryption of data. For coding of 
data according to this system, data is recorded on the disk in the form of 
data bits. In addition clock bits are recorded to insure that the controller 
does not get out of synchronization. 

With this system every data bit follows a clock bit, doubling the num- 
ber of bits which must be written. This is not a space-efficient system. 

The system for setting the clock bits is relatively simple. If one of the 
adjacent data bits is set, a reset clock bit is inserted. If the neighboring 
data bits are reset, a set clock bit is inserted. 

For the coding of the byte $A1, the coded word has the following 
appearance. 

Byte Bitpattern 
$A1 %10100001 
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The clock bits appear as follows: 



Data Bits 
Clock Bits 
Result 



%10100001 
%0 0001110 
%0100010010101001 



$44A9 



This coding system prevents too many null bits following each other. 
It also prevents two or more 1 bits from following each other. This is 
important since the controller is not capable of recognizing a change in 
magnetization which occurs too quickly, without errors. This is also 
the reason why the GCR format, described at the end of this chapter, 
can only write with half the speed. 

After the discussion of the formats, the synchronization of the con- 
troller will be described. For synchronization the disk is searched for a 
word which the user has provided. This word cannot be present in 
normal data since the controller would synchronize at the wrong place. 
Data must be found which cannot be reached with normal coding and 
which can be recognized by the controller without problems. Such a 
combination is a sequence of three bits set to null, where two of them 
are data bits (normally between reset data bits there is always a set clock 
bit). For example the combination $4489 is used by DOS as a marker. 

D D 
$4489 = %0100010010001001 
T 

The word is illegal. It can never occur through normal coding. 

After the controller has found this word, it knows that data starts here 
and reads it without error. It does not matter if these are sync words or 
legal data. A renewed synchronization is possible only after the 
completion of the read process. 



9.2.2 



The GCR format 



The second format which the controller must process is the GCR 
format (Group Code Recording), which is not used by DOS. It occupies 
significantly less space on the disk, but has a disadvantage. 

In the GCR format groups of four bits are coded into a combination of 
five bits. This eliminates too many null bits following each other. 
After the coding there are never more than two null bits or more than 
eight one bits following each other. 

The problem is that several one bits can follow each other in this 
format and the controller cannot process these. This has the result of 
changing the data recording density. To work with the GCR format 
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without error, a switch is made to half the recording speed (from 2 ms 
to 4 ms). 

The following table shows the coding according to this system: 



Hexadecimal Binary 




GCR equivalent : 


$0 


(0) 0000 




01010 


$1 


(1) 0001 




01011 


$2 


(2) 0010 




10010 


$3 


(3) 0011 




10011 


$4 


(4) 0100 




OHIO 


$5 


(5) 0101 




01111 


$6 


(6) 0110 




10110 


$7 


(7) 0111 




10111 


$8 


(8) 1000 




01001 


$9 


(9) 1001 




11001 


$A 


(10) 1010 




11010 


$B 


(11) 1011 




11011 


$C 


(12) 1100 




01101 


$D 


(13) 1101 




11101 


$E 


(14) 1110 




11110 


$F 


(15) 1111 




10101 


Byte $39 is coded according to this system as 


follows: 


$39 = 


%0011 1001 <=> 10011 


11001 


<=> 1001 1110 01 




$3 $9 




$8 $E — 



Two bits remain as "excess" since they cannot be gathered into a byte. 
Blocks of four bytes are coded to five bytes to avoid this problem. 

Now that the coding system is understood, how about synchronization? 
It's impossible in this system to have more than eight 1 bits following 
each other. Such a combination cannot be created through coding of 
data. This is used by the controller, which recognizes the appearance of 
nine or more 1 bits sequentially as a synchronization marker. 

Reading of data is suspended until a null bit is found after the recogni- 
tion of the sync marker. 

When data is written in this format, it is important to note that the data 
beginning after the sync marker always starts with a null bit If this is 
not the case, the first data bits are recognized as being part sync marker 
and the following data is shifted by the corresponding number of bits. 

The writing of data according to this system has the following 
appearance. 

$FFFF FF55 Data 

Sync Sync-End Data 
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9 . 3 Construction of a track 



A track consists of 1 1 blocks of 5 12K each and two are used as pointers 
to the next one. 

The data is stored in MFM format In addition to the data there is other 
information on the track which is used by DOS to orientate data on the 
disk. The track can be divided into information and data blocks. The 
normal user has no access to information blocks. On a track an infor- 
mation block follows a data block and the next information block. 

The most important data which appears in an information block indi- 
cates which track and block is being read and provides two checksums. 
The first is formed on the information block itself and the second on the 
following data block. These checksums are important to determine if 
the track contains errors. 

The track gap In addition to the information and data blocks there is a separate section 
which is written on disk. This is the track gap. The track gap contains 
no significant information but is required for every track. 

During data writing it is important not to write new data over old data 
on the disk (a track is round). To prevent such overwriting, a "safety 
gap" between the first and last block of a disk must exist Another 
reason for this gap is the fact that there is not always space for a com- 
plete block in the remaining space. This also creates a gap. The gap is 
about $2B8 (696) bytes long in the Amiga recording format. The 
number of bytes in the gap is not always the same since it can change 
slightly due to speed differences in the motor. The data in the gap is not 
important since DOS does not need it or check it 



9.3.1 Construction of block headers 



Since the general construction of a track should not present any more 
difficulties, the information block will be examined more closely. The 
information block (block header) can be divided into five areas. 

The beginning of the block header is formed by two sequential bytes 
coded in MFM format Translated, this results in two sequential 
$AAAA-longwords. These are followed by two standard sync markers 
($44894489). 
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After the sync marks are four bytes, which contain information about 
the construction and characteristics of the track. 

Format identification ($FF) 

Track number 

Sector number 

Number of sectors to the gap. 

These four bytes, like the following data, have not yet been converted 
into the MFM format 

The format identification indicates - as the name implies - that die track 
read corresponds to the recording format of the Amiga. An MS-DOS 
disk is also coded in MFM format, but has a different track structure 
which is registered by DOS instantly through the missing format iden- 
tification. 

The track number indicates on which track of the disk reading just 
occurred. The same is true of the sector number. 

The next byte indicates how many sectors exist before the track gap. 
The current sector is included in the count. The value one indicates that 
the track gap follows this sector. This byte is important since the track 
gap is not static (fixed location) but can exist after any sector. 

The next sector contains 16 bytes which are not used by DOS. These 
bytes were provided to record die chaining of the blocks. These 16 bytes 
are free (filled with nulls) and can be used for data which is not meant to 
be accessible to the ordinary user (such as a serial number for the 
program). This area is not suitable for copy protection data. 

After the 16 unused bytes is the checksum for the block header and the 
data block. This checksum is used by DOS for finding errors on the 
disk. Both sums are formed by the coded data and is also stored in MFM 
format. How these checksums are formed will be demonstrated in the 
next chapter. 

Some older copy protection systems which are still in use, are based on 
the fact that the data of the blocks is intact, even though the checksum 
is in error and the block becomes unreadable for DOS. Simple copy 
programs cannot duplicate these programs, or correct the checksum 

When the bytes of the complete block header are calculated, the result is 
the following: 



Explanation 


Byte 


B.Nr. 


Byte 


in MFM 


code 


Bytes before Sync 


2* 


$00 


00 


4* 


$AA 


Sync-Mark 


- 




04 


2* 


$4489 (Word) 


Info-Part 


4* 


?? 


08 


8* 


?? 


Unused Part 


16* 


$00 


16 


32* 


$AA 


Block -Checksum 


- 




48 


8* 


?? 


Data-Checksum 






56 


8* 


?? 




64 • 


= $40K 
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The ?? stand for bytes whose value depends on the current block header. 



After the 64 bytes of the block header comes the data block consisting 
of 2*512 = 1,024 ($400) bytes. In addition there are the 64 bytes of the 
block header, resulting in 1,088 ($440) bytes. On each track there are 
11 blocks and one track gap of about $2B8 (696) bytes. This produces a 
total of about 12,664 (3,178) bytes. 



9.3.2 Construction of the data block 



The data block is much simpler in construction than the block header. It 
consists of two times 512K data bytes in MFM format In the block 
header two adjacent MFM coded longwords form an uncoded longword. 
In the data block an uncoded longword is formed by two longwords, but 
differs from the coding of the block header in that the two coded adjacent 
longwords do not result in an uncoded longword The two 512 bytes are 
separated 

The first and the 512th, the second and the 513th longword, etc. are 
combined into one uncoded longword. 



9.3.3 The calculation of checksums 



The checksums which are formed for the data block and the block header 
were discussed earlier. At this point we'll discuss the calculation of 
these checksums. 

The checksum for a block header is calculated only for the information 
part and the 16 unused bytes. The sync mark isn't included. This results 
in a byte count of 40 ($28). For the data block the checksum is calcu- 
lated for all 1,024 ($400)K. A routine is available to the operating 
system for calculating these checksums. 

The following routine calculates the checksum for the storage area 
indicated. Dl contains the number of bytes for which the sum should be 
calculated. A0 has the pointer to the beginning of the data. 

The number of bytes is divided by four to obtain the number of long- 
words which must be considered. The result is a number which must be 
a multiple of four. It is not possible to consider more than $FFFC 
bytes. 
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feada4 move.l 


D2,-(A7) 


Save D2 


feada6 lsr.w 


#2,D1 


Number of bytes\ 4 


feada8 subq.w 


#1,D1 


Number -1 


feadaa moveq 


#$00, DO 


Set result to zero 


feadac move.l 


(A0)+,D2 


Get longword 


feadae eor.l 


D2,D0 


and attach 


feadbO dbf 


Dl,$feadac 


branch if counter 
not finished 


feadb4 andi.l 


#$55555555, DO 


remove invalid bits 


feadba move.l 


(A7)+,D2 


Restore D2 


feadbc rts 




Return jump 



lea 


Datastart,aO 


moveq 


#$28, dl 


jsr 


$feada4 



To calculate the checksum for a block header, the following program is 
used. 



Pointer to block header in A0 
Indicate number of bytes 
Calculate checksum 



The result of the calculation is returned in DO and can be used at the 
discretion of the programmer. 

To calculate the data checksum, the pointer to the data block must be 
passed in A0 and the byte number 1,024 ($400) in Dl. 



9.3.4 



How is a track coded? 



The operating system unfortunately does not make a separate routine 
available for coding of a track. The user must be satisfied with a routine 
which codes only one block. However, this routine also calculates the 
checksum 

Before discussing the coding of a block or track, another often-used 
routine will be examined. This routine is used for coding a block header 
and is used often by DOS. During the call of the routine, the block 
header is passed in DO and the pointer to the buffer where the coded 
header should be stored in A0. 



fead46 movem.l D3-D2,-(A7) 



fead4a 


move.l 


D0.D3 


fead4c 


lsr.l 


#1,D0 


fead4e 


bsr.l 


$fead62 


fead52 


move.l 


D3,D0 


fead54 


bsr.l 


$fead62 


fead58 


bsr.l 


$feadbe 



fead5c movem.l (A7)+,D3-D2 
fead60 rts 

fead62 andi.l #$55555555, DO 

fead68 move.l D0,D2 

fead6a eori.l #$55555555, D2 

fead70 move.l D2,D1 



Save D2 and D3 

Byte to D3 

Shift right 

Code odd bits 

Byte to DO 

Code even bits 

Clock bit of the next 

Byte corrected 

Restore register 

Return jump 

Filter odd bits 
Result to D2 
Determine clock bits 
Result to Dl 
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fead72 lsl.l 


#1.D2 


fead74 lsr.l 


#1,D1 


fead76 bset 


#31, Dl 


fead7a and.l 


D2,D1 


£ead7c or.l 


D1,D0 


fead7e btst 


#0,-1 (A0) 


fead84 beq.s 


Sfead8a 


fead86 bclr 


#31, DO 


fead8a move.l 


DO, (A0)+ 


fead8c rts 





Shift left one 

Bit one to the right 

Set first bit 

Link to sort out clock Bits 

Set clock bits 

Determine if previous 

Byte ended with null bit 

Yes, bits are right 

Reset first bit 

Store value 

Return jump 



Correct the first clock bit of the next byte if a byte was inserted. The 
pointer to the next byte is in A0. 



feadbe move.b (A0),D0 

feadcO btst #0,-1 (AO) 

feadc6 bne.s $feadd4 

feadc8 btst #6, DO 

feadcc bne.s $feadda 

feadce bset #7, DO 

feadd2 bra.s $feadd8 

feadd4 bclr #7, DO 

feadd8 move.b DO, (AO) 
feadda rts 



Get byte 

Is last bit of the previous byte set? 

Yes, reset clock bit 

Test next data bit 

Branch if bit is set 

Set clock bit 

Unconditional jump 

Reset clock bit 

Write byte 

Return jump 



Assuming the header $FF020406 was passed to the routine the individ- 
ual steps of the coding are: 

$FF240406 => %1111 1111 0010 0100 0000 0100 0000 0110 

These bits are shifted to the right and at first only the odd bits are coded. 
This results in: 

%0111 1111 1001 0010 0000 0010 0000 0011 

Next the odd clock bits in this new longword are reset and then all even 
data bits are reversed. 

%0111 1111 1001 0010 0000 0010 0000 0011 
AND %0101 0101 0101 0101 0101 0101 0101 0101 

%0101 0101 0001 0000 0000 0000 0000 0001 
EOR %0101 0101 0101 0101 0101 0101 0101 0101 

%0000 0000 0100 0101 0101 0101 0101 0100 

The purpose of this will be evident soon. 

Next all reversed data bits are shifted right and left. A logical AND is 
then performed. The first bit of the longword shifted right is also set 

%1000 0000 0010 0010 1010 1010 1010 1010 
AND %0000 0000 1000 1010 1010 1010 1010 1000 

%0000 0000 0000 0010 1010 1010 1010 1000 
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As a result of the logical operation only 1 bit exist where in the origi- 
nal longword two null bits existed. This is the case when the set clock 
bits must be introduced. The result of the last logical operation with the 
longword, in which all clock bits were removed, are ORed to obtain the 
final coded value: 

%0101 0101 0001 0000 0000 0000 0000 0001 
OR %0000 0000 0000 0010 1010 1010 1010 1000 



%0101 0101 0001 0010 1010 1010 1010 1001 

A test must be performed to determine if the last data bit of the previ- 
ous byte was set or reset If it was set, the first clock bit of the 
longword must be reset, or it will arrive at the original longword, 
which was already considered in the calculation. The first coded 
longword is: 

$5512AAA9 

Analog to the coding of the odd bits is the coding of the even bits 
which results in the value S5524A4A4. The final coded header looks 
like this: 

$5512AAA9 5524A4A4 

After the second longword was stored, the gap between die second and 
following longword must be corrected. For this task a jump is made to 
the routine starting at SFEADBE. 

The process of coding a complete track is rather time consuming. It can 
be speeded up considerably, at least for data blocks, by the blitter. 

Before examining this routine, some foundations must be laid. A 
complete explanation of programming the blitter would be too lengthy 
for inclusion here. However, the functioning of the graphic function 
QBlit, which is called by the routine to be discussed, is explained. It 
may be puzzling why a graphic function is being used since the coding 
of a block does not involve graphic operations. 

The QBlit The QBlit function just mentioned is stored in the Graphic library, but 

function is used for more than graphic operations. During the call of the func- 

tion, a pointer to a previously created structure is passed. This structure 
is attached to the end of a list in which there are structures used for 
programming the blitter. If a structure has been processed, the next one 
is used. When a structure is in use, the blitter can be programmed 
through multitasking until the control of the list is returned to the 
system. 

QBlit has the task of waiting until the blitter is free and then passes 
control over it to a program. To which program control is passed, is 
determined in the structure. 
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The blitter structure which is used has the name blitNode. For the 
coding of a block it is passed in a slightly changed form and appears as 
follows: 



Explanation 



$00 Pointer to next structure. 

04 $04 Pointer to program to be executed. 

08 $08 Length of data for coding. 

12 $0c Pointer to Source. 

16 $10 Pointer to destination. 

20 $14 Content for BLTSIZE. 

22 $16 Value depends on application. 

26 $1A Pointer to drive Port. 

The pointer to the next structure is accepted by the QBlit function and 
does not have to be set by the programmer. The pointer to the program 
to be executed must point to the user routine to which the QBlit func- 
tion jumps as soon as the blitter becomes free for this structure. 

The last entry in the structure requires an explanation. It concerns the 
pointer to the message port of the drive which is addressed. The address 
of this port has been stored in the Device structure and is stored in the 
ORequest structure under "Unit". The pointers to the Msg. ports in the 
Trackdisk Device structure can be found under the following offsets: 

Offset Explanation 



36 $24 Pointer to Port for Drive 0. 

40 $28 Pointer to Port for Drive 1. 

44 $2C Pointer to Port for Drive 2. 

48 $30 Pointer to Port for Drive 3. 

If a "Drive Not Present" error is returned, the pointer is set to null. 

The QBlit function performs the program indicated in the structure 
when its turn arrives. The return jump from QBlit occurs when the user 
program returns a null in DO. If this isn't the case, a branch occurs to 
another program through the indicated vector after die return jump from 
die user program. For this, the pointer is set in the first program to the 
next. With this linkage of programs it is possible to perform several 
tasks with the blitter through one call of the QBlit function. Aside from 
the blitter programming, several tasks can be performed by these user 
programs, but in most cases this does not make sense. 

Since the QBlit function originated in the Graphic library, there is a 
pointer to the Graphic library in the Trackdisk Device structure starting 
at Offset 56 ($36). It may be curious, but a disk operation without the 
presence of the Graphic library is not possible. 

The coding routine will be explained next. The information part of the 
block header must be passed to this routine since it's linked completely. 
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Since the process of coding data into the MFM format was already 
described in detail, a similar description of the coding by the Witter is 
not provided. 

Coding of a In AO is the pointer to the data block which is coded (Source). 

block In Al is the pointer to die buffer into which the coded data is written 

(Destination). 

In A3 is the pointer to the Msg. port of the drive. 

In A6 is the pointer to the Device structure. 

In DO is the uncoded information portion of the block header. 



feaadc movem.l A4/A2/D2,-(A7) 



feaaeO move.l 


A1,A4 


feaae2 move.l 


A0,A2 


feaae4 move.l 


D0,D2 


£eaae6 moveq 


#$00, DO 


£eaae8 lea 


0(A4),A0 


feaaec bsr.l 


$fead46 



feaafO move.l #$44894489, 4 (A4) 

£eaaf8 move.l D2,D0 

feaafa lea 8(A4),A0 

feaafe bsr.l $fead46 



Save register 

Pointer to write buffer 

Pointer to data buffer 

Block header to DO 

Clear DO 

Pointer to write buffer 

Code null bytes and write into 

buffer 

Store sync mark 

Block header to D2 

Pointer to buffer 

Code block header and store in 

buffer 





feab02 moveq 


#$03, D2 


Set counter to 3 




feab04 moveq 


#$00, DO 


Enter null bytes in buffer 




feab06 bsr.l 


$fead46 






feabOa dbf 


D2,$feab04 


Branch until counter done 




feabOe lea 


8 (A4) ,A0 


Set pointer to coded block header 




feabl2 moveq 


#$28, Dl 


Set number of bytes 




feabl4 bsr.l 


$feada4 


Calculate block checksum 




feabl8 lea 


48(A4),A0 


Pointer position in block 




feablc bsr.l 


$fead46 


Store checksum 




feab20 move.l 


#$00000200, DO 


Set number of bytes 




feab26 move.l 


A2,A0 


Pointer to data buffer 




feab28 lea 


64(A4),A1 


Set pointer in write buffer 




feab2c bsr.l 


$feab4a 


Code data block 




feab30 lea 


64<A4),A0 


Pointer to the beginning of 
coded data 




feab34 move.w 


#$0400, Dl 


Set counter 




feab38 bsr.l 


$feada4 


Calculate checksum for data 




feab3c lea 


56(A4),A0 


Pointer to position 




feab40 bsr.l 


$fead46 


Store checksum 




feab44 movem.l 


(A7)+,A4/A2/D2 


Restore register 




feab48 rts 




Return jump 


Coding the 


hi AO is the pointer to the data buffer. 


data block 


In Al is the poi 


nter to the write b 


uffer. 



In A3 is the pointer to the Msg. port of the drive. 
In A6 is the pointer to the Device structure. 
In DO is the number of data which are coded. 



feab4a 


link 


A2,#-30 


feab4e 


move.w 


D0,D1 


feabSO 


lsl.w 


#2,D1 


feab52 


ori.w 


#$0008, Dl 


feab56 


move.w 


D1,-10(A2) 



Make space in stack 
Number to Dl 
BltSize 
Determine register 
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feab5a movem.l A1-A0/D0,-22(A2) 
feabeo roove.l #$00feab9e,-26(A2) 
feab68 move.l A3,-4(A2) 
feab6c lea -30(A2),A1 



feab70 move.l 


A6,-(A7) 


feab72 move.l 


56(A6),A6 


feab76 jsr 


-276 <A6) 


feab7a move.l 


(A7)+,A6 


£eab7c bsr.l 


$fea70a 


feab80 movem.l 


-22(A2),A1-A0/D0 


£eab86 move.l 


D0,D1 


£eab88 move.l 


A1,A0 


feab8a bsr.l 


$feadbe 


feab8e adda.l 


D1,A0 


£eab90 bsr.l 


$feadbe 


feab94 adda.l 


D1,A0 


feab96 bsr.l 


$feadbe 


feab9a unlk 


A2 


feab9c rts 





Create structure 

Set function pointer 

Pass pointer to port 

Set pointer to beginning of 

structure 

Store A6 

Get pointer to GfxBase 

Function QBlit 

Restore A6 

Wait for Reply Msg. 

Restore register 

Byte number to Dl 

Set pointer to beginning of 

data 

Correct border 

Pointer to next seam 

Correct border 

Pointer to end 

Correctly border 

Release stack 

Return jump 



Following is the function to which the QBlit function jumps. 

In AO the pointer to SDffOOO is passed. 

hi Al is the pointer to the previously created structure. 

hi A6 is the pointer to the Trackdisk Device structure. 



feab9e move.l A5,-(A7) 
feabaO move.l A1,A5 
feaba2 bsr.l Sfeb2cc 

feabaS move.l A5,A1 

feaba8 movem.l 8(A1) ,A5/D1-D0 



feabae move.l 
feabb2 move.l 
feabb6 move.l 
feabba move.w 
feabacO move.w 
feabc6 move.w 
feabcc move.l 
feabd4 move.l 
feabd6 rts 



D1,76<A0) 
D1,80(A0) 
A5,84(A0> 
#$ldbl,64(A0) 

#$0000, 66 (AO) 
20(A1),88(A0) 
#$00feabd8,4(Al) 
(A7)+,A5 



Save A5 

Save pointer to structure 

Set mode for A,B,D and 

BLTALWM 

Restore pointer 

Get pointer to source and 

destination 

Source to Source B 

Source to Source A 

Destination to Destination D 

Value for BLTCON0 

Value for BLTCON1 

Start blitter, BLTSIZE 

Pointer to next function 

restore AS 

Return jump 



This is the second function. It is called when the blit process of the first 
has been completed. The parameters passed are the same. 



feabd8 move.l 
feabda movem.l 
feabeO move.l 
feabe4 move.l 
feabe8 move.l 
feabec move.w 
feabf2 move.w 
feabf8 move.l 
feacOO move.l 
feac02 rts 



A5,-(A7) 

8(A1),A5/D1-D0 

A5,76(A0) 

Dl, 80 (A0) 

A5,84(A0) 

#$2d8c,64(A0) 

20 (Al) , 88 (A0) 

#$00feac04,4(Al) 

(A7)+,A5 



Save A5 

Values from the structure 

Source B = Destination 

Source A = Source 

Destination D = Destination 

Set BLTCON0 

Set BLTSIZE, start 

Store next function 

Restore A5 

Return jump 
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Function 3 


feac04 


move.l 


A5,-(A7) 


Save A5 




feac06 


movent. 1 


8(A1),A5/D1-D0 


Values from the structure 




feacOc 


add.l 


D0,D1 


Pointer to end of source 




feacOe 


subq.l 


#2,D1 


Set -2 




feaclO 


adda.l 


DO, AS 


Pointer to end of 




£eacl2 


adda.l 


D0,A5 


Destination 




feacl4 


subq.l 


#2,A5 


Set -2 




feacl6 


move.l 


Dl, 76 (AO) 


Source B = Source End 




feacla 


move.l 


Dl, 80 (AO) 


Source A = Source End 




feacle 


move . 1 


A5,84(A0) 


Destination D = Destination-End 




feac22 


move.w 


#$0dbl,64(A0) 


Set BLITCON0 




feac28 


move.w 


#$1002, 66 (AO) 


Set BLITCON1 
(count backwards) 




feac2e 


move.w 


20(A1),88(A0) 


Set BLTSIZE, start 




feac34 


move . 1 


#$00feac40,4(Al) 


Next function 




feac3c 


move.l 


<A7)+,A5 


Restore A5 




feac3e 


rts 




Return jump 



Function 4 feac40 move.l A5,-(A7) 

feac42 movem.l 8 (Al) ,A5/D1-D0 
feac48 adda.l D0,A5 

feac4a move.l A5,76(A0) 
feacle move.l D1,80(A0) 
feac52 move.l A5, 84 (AO) 



feac56 move.w 
feac5c move.w 
feac62 move.w 
feac68 move.l 
feac70 move.l 
feac72 rts 



#$ld8c,64(A0) 
#$0000, 66 (AO) 
20(A1),88(A0) 
#$00feac74,4(Al) 
(A7)+,A5 



Save A5 

Value from structure 

Pointer to end of first part of 

destination 
Enter from Source B 
Source A = Source 
Destination D = End of the 

first part of destination 

Set BLTCON0 

Set BLTCON1 

Set BLTSIZE, start 

Next function 

Repeat AS 

Return jump 



Function 5 



feac74 moveq 
feac76 move.l 
feac7a move.l 
feac7e bsr.l 
feac82 moveq 
feac84 rts 



#$00, DO 
D0,4(A1) 
26(A1),A1 
$fea6f2 
#$00, DO 



Clear DO 

Clear function pointer 
Get pointer to port 
Send Msg. (Blit-End) 
Set Flag for End 
Return jump 



The following routine is called by its own function. It sets the registers 
BLTAFWM, BLTALWM, BLTBMOD, BLTAMOD, BLTDMOD and 
BLTCDAT. 



feb2cc moveq 
feb2ce lea 
feb2d2 move.l 
feb2d8 lea 
feb2dc move.l 
feb2de move.w 
feb2e0 addq.l 
feb2e2 move.w 
feb2e6 rts 



#$00, DO 
68(A0),A1 
#$ffffffff, (Al) 
98(A0),A1 
DO, (Al) + 
DO, (Al) + 
#8,A1 
#$5555, (Al) 



Clear DO 

Pointer to BLTAFWM 
Set BLTAFWM, BLTALWM 
Pointer to BLTBMOD 
Erase Mode B,A 
Erase Mode D 
Pointer to BLTCDAT 
Set BLTCDAT 
Return jump 



The knowledge gained so far is not sufficient to write programs which 
codes a block with the help of the routines discussed. 
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The reason for this is that the Wait function is used to wait for the 
termination of blitter activity. This routine for waiting for the termina- 
tion of blitter activity and for sending the return message, is inspected 
closely. 

To understand the following routines, it should be mentioned that there 
is another Msg. Port structure (Reply port) at offset 174 ($AE) from 
the basic address of the Msg. Port for the drive, which is used to accept 
return messages. 

As in the Reply Port structure, within the Msg. Port structure for the 
drive, there is a Message structure which is sent as message for this and 
other wait processes to the Reply port The Message structure is located 
at offset 94 ($5E). 

Then comes the routine for sending the return message (Message) to 
terminate the waiting process. 

hi Al is the pointer to the Drive port (Msg. port), 
hi A6 is the pointer to the Trackdisk Device structure. 

fea6f2 lea 174(A1),A0 Pointer to Reply port 

fea6f6 lea 94(A1),A1 Pointer to Reply message 

fea6fa rnove.l A6,-(A7) Save A6 

fea6fc rnove.l $000004, A6 Get pointer to ExexBase 

fea702 jsr -366 (A6) Call PutMsg function 

fea706 rnove.l (A7)+,A6 Restore A6 

fea708 rts Return jump 

The following routine is used to wait until the routine shown above 
sends a message to the Reply port 

hi A3 is the pointer to the Drives port (Msg. port). 
In A6 is the pointer to the Trackdisk Device structure. 



fea70a 


rnove.l 


#$00000400, DO 


Signal set to DO 


fea710 


rnove.l 


A6,-(A7) 


Save A6 


fea712 


rnove.l 


52(A6),A6 


Pointer to ExecBase 


fea716 


jsr 


-318 (A6) 


Wait function 


fea71a 


rnove.l 


(A7)+,A6 


Restore A6 


fea71c 


lea 


174(A3),A0 


Pointer to Reply port 


fea720 


rnove.l 


A6,-(A7) 


Save A6 


fea722 


rnove.l 


52(A6),A6 


Pointer to ExecBase 


fea726 


jsr 


-372 (A6) 


GetMsg function 


fea72a 


rnove.l 


(A7)+,A6 


Restore A6 


fea72c 


tst.l 


DO 


Message arrived ? 


fea72e 


beq.s 


$fea70a 


No, error, wait some more 


fea730 


rts 




Return jump 



Normally all these routines are called from the Trackdisk task. For this 
reason the Reply port is tailored for the Trackdisk task, which means 
that all messages are sent to it. If the routine for coding a block or 
another routine which uses this waiting function is called, the message 
which signals the termination of the wait is sent to the Trackdisk task. 
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The user task which is waiting, would never obtain the message and 
therefore would wait forever. 

To avoid this, a trick can be used. The Reply port for the user task 
must be informed to get the message to its destination. It is sufficient 
to point the *mp_SigTask entry, which points to the Trackdisk task, to 
the user task. This entry is at offset 16 starting at Reply port 

After termination of the user program, the pointer to the task must be 
pointed again to the Trackdisk task. During the change to the user task 
any disk accesses must be avoided because the system would get into 
major difficulties. 

There is another matter to consider. During the processing of the user 
task, the Trackdisk task should not interfere. To avoid this it should be 
fooled into assuming that it is already executing and therefore cannot 
accept additional assignments. A bit in the Drive port exists for this. 
Setting bit at offset 34 ($22) prevents the processing of messages by 
the Trackdisk task. Resetting the bit permits the processing to resume. 
The following program shows this process while coding a block with 
the help of the routine discussed previously. The source and destination 
must be added to this routine. 

;Code.s Amiga Disk Drives Inside and Oout 

Device = 350 

Port =36 

RepPort = 174 

SigTask = 16 

Task = 276 

FindName = -276 



Header 



= $FF240406 

move.l $4,a6 

lea Name,al 

lea Device (a6) , aO 

jsr FindName (a6) 

tst.l dO 

beq Error 

move.l Task(a6),a0 

move.l d0,a6 

move.l Port(a6),a3 

lea RepPort (a3),al 

move.l SigTask (al),-(a7) 

move.l al,-(a7) 

move.l aO, SigTask (al) 

bset #0,34(a3) 



/Pointer to Devicelist 
;find Device 



/Pointer to user Task 

/Drives-Port -Address 
;Reply-Port -Address 
;save old Pointer 
;save Reply-Port 
; store user Task 
;set Trackdisk-Task to 
/waiting position 



everything is prepared for the call of the desired routine 

move.l #Header,dO 

lea Source, aO 

lea Destination, al 

jsr $feaadc /code Block 
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Error: 
Name: 



move.l (a7)+,al /restore Reply port 

move.l (a7)+, SigTask(al) ;store old Pointer 

bclr #0,34 (a3) /release Task again 
rts /Return jump 

dc . b ' t rackdi sk . device ' , 

END 



We'll end the chapter by showing how DOS codes an entire track. 

The listing which follows is only a fragment from a larger routine 
which also writes the track and checks for errors during writing. The 
writing of a track is not important at this point and will be discussed 
later. 

In A2 is the pointer to the destination buffer (coded). 
In A3 is the pointer to the Drive port. 
In AS is the pointer to the source buffer (uncoded). 
In A6 is the pointer to the Trackdisk Device structure. 
In D2 is the track number. The track number must be stored as a long- 
word. 



feall2 moveq 


#$0b,D4 




Number of the Blocks (11) 


feall4 moveq 


#$00, D5 




erase Block counter 


feall6 move.l 


#$ff000000, 


DO 


DOS-code to DO 


feallc move.l 


D5,D1 




Block counter to Dl 


fealle lsl.l 


#8,D1 




move to its Position 


feal20 or.l 


D1,D0 




enter into Header 


feal22 or.l 


D4,D0 




enter number of Blocks to the Gap 


feal24 move . 1 


D2.D1 




Track-Number to Dl 


feal26 swap 


Dl 




bring Number into Position 


feal28 or.l 


D1,D0 




and enter into Header 


feal2a move.l 


A2,A1 




Destination to Al 


feal2c move.l 


A5,A0 




Source to A0 


feal2e bsr.l 


$feaadc 




code Block 


feal32 addq.l 


#1,D5 




increment Block counter 


£eal34 adda.l 


#$00000440, A2 


increment Pointer to Destination 








Buffer 


£eal3a adda.l 


#$00000200, 


,A5 


increment Pointer to Source Buffer 


feal40 subq.l 


#1,D4 




decrease Number of Blocks 


feal42:66d2 bne.s Sfeall6 


branch if not done with coding 



The counter for the number of the remaining blocks is also the counter 
for the number of blocks to the gap. If a track is coded with this or a 
similar program, the gap is always at the end of the track (after block 
11). 
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9.3.5 Decoding a track 



Now that we know how a track is coded, we'll learn how it can be 
decoded again. 

A routine exists in the operating system which decodes a block. In addi- 
tion another routine is used which decodes the block header. Just as in 
the coding of a track, first the routine for decoding of the header is 
described. 

An uncoded longword is created from two sequential, coded longwords. 
AO is the pointer to the first longword. The result is returned in DO as 
an uncoded longword. 

fead8e move.l (A0)+,D0 get first longword 

fead90 move.l (A0)+,D1 get second longword 

fead92 andi.l #$55555555, DO remove clock bits 

fead98 andi.l #$55555555, Dl remove clock bits 

fead9e lsl.l #1,D0 correct bits 

feadaO or.l D1,D0 and perform logical operation 

feada2 rts Return jump 

Starting with the example for coding of a block header, the decoding 
appears as follows. 

You may recall that the info portion ($FF240406) of the block header 
was coded into two longwords ($5512AAA9 5524 A4A4). 

$5512AAA9 = %0101 0101 0001 0010 1010 1010 1010 1001 
$5524A4A4 = %0101 0101 0010 0100 1010 0100 1010 0100 

After getting these two longwords, the clock bits are removed. 

%0101 0101 0001 0010 1010 1010 1010 1001 
AND %0101 0101 0101 0101 0101 0101 0101 0101 

%0101 0101 0001 0000 0000 0000 0000 0001 

and 

%0101 0101 0010 0100 1010 0100 1010 0100 
AND %0101 0101 0101 0101 0101 0101 0101 0101 

%0101 0101 0000 0100 0000 0100 0000 0100 

Then the longword representing the odd bits (the first longword), is 
shifted left by one bit and a logical OR is performed with the second 
longword. 
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%1010 1010 0010 0000 0000 0000 0000 0010 
OR %0101 0101 0000 0100 0000 0100 0000 0100 

%1111 1111 0010 0100 0000 0100 0000 0110 

The result of the logical operation is the original header. 

The decoding of data is much faster than coding, but still rather demand- 
ing if an entire track must be decoded. For this reason the blitter is 
used. 

In A0 is the pointer to where the decoded data is stored (Destination). 

In Al is the pointer to the buffer where the data for decoding are stored 

(Source). 

In A3 is the pointer to the Drive port 

hi A6 is the pointer to the Trackdisk Device structure. 

In DO is the number of bytes to be decoded. 



Make space In the stack 

Write values into the structure 

calculate BLTS1ZE 

and store 

Pointer to function 

store pointer to port 

Pointer to start of structure 

save A6 

get pointer to GfxBase 

call QBlit function 

restore A6 

wait for Reply-Msg. 

restore register 

correct stack 

Return jump 



Now the listing of the function which is called by the QBlit function: 

hi A0 is the pointer to the beginning of the custom chips ($DFF000). 
In Al is the pointer to the BlitNode structure which was created. 
In A6 is the pointer to the Trackdisk Device structure. 



feacb2 


link 


A2,#-30 


feacb6 


movem.l A1-A0/D0,-22(A2) 


feacbc 


lsl.w 


#2, DO 


feacbe 


ori.w 


#$0008, DO 


feacc2 


move.w 


D0,-10(A2) 


feacc6 


move . 1 


#$00feacf0,-26(A2) 


feacce 


move.l 


A3,-4(A2) 


feacd2 


lea 


-30(A2),A1 


feacd6 


move.l 


A6,-(A7) 


feacd8 


move.l 


56(A6),A6 


feacdc 


jsr 


-276 (A6) 


feaceO 


move.l 


(A7)+,A6 


feace2 


bsr.l 


$fea70a 


feace6 


movem.l 


-22(A2),A1-A0/D0 


feacec unlk 


A2 


feacee 


rts 





feacfO 


move.l 


A5,-(A7) 


Save A5 


feacf2 


move.l 


A1,A5 


save pointer to structure 


feacf4 


bsr.l 


$feb2cc 


set values for blitter 
see previous chapter 


feacf8 


move.l 


A5,A1 


get pointer to structure 


feacfa 


movem.l 8(A1) ,A5/D1-D0 


get pointer to source. 








destination 








and Length 


feadOO 


adda.l 


D0,A5 


determine end address of source 
for odd Bits 


fead02 


subq.l 


#1,A5 


decrease by one 


fead04 


move . 1 


AS, 80 (AO) 


enter in Source A 


fead08 


adda.l 


D0,A5 


End address of even bits 


feadOa 


move . 1 


A5, 76 (AO) 


enter in Source B 


feadOe 


add.l 


D0,D1 


End address destination 


feadlO 


subq.l 


#1,D1 


-1 


feadl2 


move.l 


D1,84(A0) 


enter Destination D 
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feadie move.w #$ldd8, 64 (AO) set BLTCONO 

feadlc move.w #$0002, 66 (AO) set BLTCON1 (count backwards) 

fead22 move.w 20 (Al) , 88 (AO) set BLTSIZE, Start 

fead28 move.l #$00fead34,4 (Al) enter new function 

fead30 move.l (A7)+,A5 restore A5 

fead32 rts Return jump 

Function 2 fead34 moveq #$00, DO clear DO 

fead36 move.l D0,4(A1) erase pointer to function 

fead3a move.l 26(A1),A1 get pointer to port 

fead3e bsr.l $fea6f2 Put message 

fead42 moveq #$00, DO clear DO (End Flag) 

fead44 rts Return jump 

To decode a block, the following program is required. The source and 
the destination must be inserted. 

/Decode. s Amiga Disk Drives Inside and Out 

Device = 350 

Port =36 

RepPort = 174 

SigTask =16 

Task = 276 

FindName = -276 



Number 



$200 



move.l $4,a6 

lea Name,al 

lea Device (a6) , aO 

jsr FindName (a6) 

tst.l dO 

beq Error 

move.l Task(a6),a0 

move.l d0,a6 

move . 1 Port (a6) , a3 

lea RepPort (a3),al 

move.l SigTask (al),-(a7) 

move.l al,-(a7) 

move.l aO, SigTask (al) 

bset #0,34(a3) 



/Pointer to Devicelist 
;find Device 



/Pointer to user Task 

; Drive-Port -Address 
; Reply-Port -Addre ss 
;save old Pointer 
;save Reply-Port 
/enter user Task 
/set Trackdisk-Task to 
/wait position 



/everything is ready to call the desired routine 
lea Source, al 
lea Destination, aO 
move.l #Anzahl,d0 
jsr $feacb2 /decode Block 



Error: 
Name: 



move.l (a7)+,al 
move.l (a7)+,SigTask(al) 
bclr #0,34(a3) 
rts 

dc.b 'trackdisk. device ',0 



/restore Reply-Port 
/enter old Pointer 
/release Task again 
/Return jump 



END 
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9 . 4 The disk registers 



The coding and decoding of data as discussed in the preceding sections 
have provided you with a basic working knowledge. The most 
important step is the reading and writing of data to and from the disk. 
To be able to understand these processes completely a working 
knowledge of the hardware registers is needed. We'll discuss this in the 
following sections. 



9.4.1 The Drive Status register 



This register is used to check to see if a disk is in the drive, if it is 
write protected, etc. 

Register Drive-Status = $BFE001 

Port Name Description 

CIAA PA5 DSKRDY* The bit indicates if the drive 

is ready to accept commands 

Ready => Bit = 
CIAA PA4 DSKTRACKO* The position of th& head of 

the addressed drive is on Head 

at Null => Bit - 
CIAA PA3 DSKPROT* Indicates if the disk which is 

in the drive, is write 

protected. 

Protected => Bit = 
CIAA PA2 DSKCANGE* Indicates if a disk is in the 

drive. Disk in Drive =>Bit = 1 

The bit is actuated then the 

stepmotor is moved. 

Bits are valid only for the drive indicated by the Drive Select register. 
This register is discussed next. 

If several drives are addressed at the same time, the bits are set according 
to events when one of the drives is in the condition to display. For 
example the DSKCANGE bit would be LOW, when one of the 
addressed drives does not have a disk present 

Example for waiting for disk ready: 

Ll: BTST #5,$BFE001 
BNE.S Ll 
RTS 
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9.4.2 



The Drive Select register 



With this register the four different drives are addressed and a selection is 
made if the upper (head 0) or lower side (head 1) of the disk should be 
addressed. In addition, the step motor of the selected drive is controlled 
through this register. 



Register drive select = $BFD100 



Port Pin 



Name 



Description 



CIAB PB7 



DSKMOTOR* 



CIAB PB6 

CIAB PB5 

CIAB PB4 

CIAB PB3 

CIAB PB2 

CIAB PB1 

CIAB PBO 



DSKSEL3* 
DSKSEL2* 
DSKSEL1* 
DSKSELO* 
DSKSIDE* 

DISDIREC 
DISKSTEP* 



This bit controls the drive 

motors of the four drives. If 

the bit is LOW, while a drive 

is selected, its motor 

switches on. Additional 

description follows. 

Bit for Drive 3 

Drive addressed => Bit = 

Bit for Drive 2 

Drive addressed => Bit = 

Bit for Drive 1 

Drive addressed => Bit = 

Bit for Drive 

Drive addressed 



= 



which 



Bit 
head 



Indicates 

selected. 

Head (bottom) => Bit = 1 

Indicates if the head of the 

drives should move inward or 

outward. 

Inward => Bit = 

The motor is moved with this 

bit. During a change from HIGH 

to LOW, the head moves in the 

direction indicated. 



A closer explanation requires the assignment of individual drive motor 
conditions. If a drive is selected for a certain activity by resetting the 
corresponding DSKSEL bit, this stores the condition of the 
DSKMOTOR bit (switches the motor on or off). The Motor command 
is considered until the corresponding drive bit again switches from 
HIGH to LOW. When this happens, the condition of the DSKMOTOR 
bit is transmitted to the motor. The DISKSTEP bit should always be 
reset to HIGH after a change from HIGH to LOW or problems develop 
when changing drives. 

It is possible to address several drives simultaneously and to move the 
heads of both drives at the same time. Here are some programming 
examples which show how the motors of the individual drives are 

addressed. 
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Switch on motor for drive 0, select head 1 (down): 



Mot or On: 



LI: 



MOVE.B #$7D,$BFD100 

NOP 

NOP 

MOVE.B #$75,$BFD100 

MOVE.W #$B000,D0 

DBRA DO, LI 

RTS 



Switch off motor for drives and 1: 

MotorOff: MOVE.B #$FD,$BFD100 

NOP 

NOP 

MOVE.B #$E7,$BFD100 

MOVE.W #$B0O0,D0 
LI: DBRA DO, LI 

RTS 



All Drive bits on HIGH 

Drive 0, Motor on 
Waiting loop 

All drive bits on HIGH 

Drives and 1 off 
Waiting loop 



The following demonstrates how the head of one or more drives can be 
moved inward or outward. 

Move head one track inward: 



Headln: BCLR #1,$BFD100 
BCLR #0,$BFD100 
BSET #0,$BFD100 
MOVE.W #3000, DO 
L2: DBRA D0,L2 
LI: BTST #5,$BFE001 
BNE.S LI 
RTS 

Move head one track to outside: 



Waiting loop 

Wait for Disk-Ready 



HeadOut : 


BSET #1,$BFD100 
BCLR #0,$BFD100 
BSET #0,$BFD100 
MOVE.W #3000, DO 




L2: 


DBRA D0,L2 


Waiting loop 


LI: 


BTST #5,$BFE001 

BNE.S LI 

RTS 


Wait for Disk-Ready 



Since these routines do not work with the operating system, they must 
lock out the interrupts before use or make the task of the drive "think" 
that it is already working. How this is done was discussed in the 
examples for coding and decoding. 
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9.4.3 The Disk LEN and Disk Pointer register 



To read or write data, the hardware must be informed from which 
memory region this should occur. In addition it must know how many 
bytes are processed. 

To set the start address, two connecting registers (DSKPTH and 
DSKPTL) exist Only 19 bits are accepted for determining the address. 
With these 19 bits the lowest S12 Kbytes of memory can be addressed 
(2 A 19=> 512 Kbytes). 

The DSKPT registers don't have to be set individually. This can be 
done with an assignment 

lea Pointer, aO 
move.l aO, DSKPTH 

The two registers have the addresses $DFF020 and $DFF022. 

After the start address has been passed, the length is passed to start the 
DMA access. Both tasks can be performed with the DSKLEN register. 

This register can be divided into two areas. First it controls the DMA 
access, and also the number of words to be transferred are passed to it 
There are 13 bits available for passing the word length. With the 13 
bits a maximum of 16 Kbytes can be transferred. 

Register DSKLEN = $DFF024 

Pin Name Description 

15 DMAEN Enable Disk-DMA. 

DMA enable => Bit = 1 
14 WRITE Indicates if read or write. 

Read => Bit = 
13-0 LENGTH Number of words to be transferred. 

To start Disk DMA without errors, a certain procedure must be 
followed. The register must be written twice with the same value and 
only then is data transferred. To avoid errors during the transmission, 
the DMAEN bit should be erased before and after the transmission. 

Starting the transmission appears as follows: 

1 . Set the register to $4000, to block the DMA. 

2. Write the desired value into the register. 

3 . Write the same value again to start the DMA. 

4. After termination of the transmission the register is set again to 
$4000 to prevent writing on the disk. 
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If the transmission is started, the DSKLEN register is decremented and 
the DSKPT register is incremented. When the counter in the SKLEN 
register is zero, the transmission stops. 

Because of a hardware error, the last three bits of the data to be transmit- 
ted to disk are ignored. Also the last word which should be written from 
the disk to storage is not sent. Therefore the user must always transmit 
one word more than the required data. 



9.4.4 The Disk Byte Read register 



This register is also a Status register, but indicates other results than 
the Drive Status register. In addition the last 8 bits can be used to read 
the byte which is currently being read from the disk. If a byte has 
arrived, the byteready bit is set to HIGH. When the register is read, the 
byteready bit is reset automatically. 

Register DSKBYTR = $DFF01A 

Bit Name Description 

15 BYTEREADY Indicates when a byte has arrived 
from the disk. The bit is erased 
during a read access. 

14 DAMON Indicates if the Disk-DMA is 
permitted. Both the bit in the DSKLEN 
register, and the DMACON register 
must be set. 

Indicates if the read or write models 
switched on in the DSKLEN register. 
Indicates that the controller has 
found a sync mark. The bit is set 
only as long as the sync mark is 
recognized (about 2 Microseconds) . 
Not used. 

Contains the data just read from the 
disk. 



9.4.5 The ADKCON and ADKCONR registers 



The ADKCON and ADKCONR registers are important parts of the 
Amiga disk controller. ADKCON is the write address and ADKCONR 
the read address of the registers. Not all bits of these registers are used 
for disk accesses. The lower 8 bits are used for music programming. 



13 


DISKWRITE 


12 


WORDEQUEL 


11-8 




7-0 


DATA 
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Register ADKCON = $DFF09E, ADKCONR = $DFF010 



Bit Name 



Explanation 



15 CLR/SET 
14 PRECOMP1 
13 PRECOMP2 



12 MFMPREC 

11 UARTBRK 

10 WORDS YNC 

9 MSBSYNC 

8 FAST 
7-0 



Detailed explanation follows. 

Upper bit of the bit pair PRECOM1 and 2. 

Lower bit of the bit pair for the pre- 

compensation during writing: 

Value 00 => 00 ns 

Value 01 => 140 ns 

Value 10 => 280 ns 

Value 11 => 560 ns 

Value selects MFM-Format. 

Value 1 selects GCR-Format. 

Value 1 => Output to Paula. 

Value => Output to Disk. 

Switch on synchronization for a certain 

word. The word must be in $DFF07E. The 

transmission of the data starts only 

after the mark is found. 

Value 1 => Synchronization on 

Switch on synchronization for GCR-Sync- 

Marking . 

Value 1 => Synchronization on 

Switch on the writing speed: 

Value 1 => MFM-Format, 2 ms per Bit 

Value => GCR-Format, 4 ms per Bit 

Not for Disk Controller. 



The CLR/SET bit (bit IS) indicates if the bits which are set in the 
value to be written are set or reset in the register. If the CLR/SET bit is 
set, all register bits are set in the word which is written. If the CLR/ 
SET bit is reset, all bits which are set in the word in the register, are 
reset. 

Two examples make this clean 

Word to be written: 1 000 1001 0110 0000 
Old Register content: 110 0110 1100 0000 



New Register content: 1 110 1111 1110 0000 

Word to be written: 110 0010 0111 0000 
Old Register content: 110 1111 1110 0000 



New Register content: 000 1101 1000 0000 
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9.4.6 The Disk Sync register 



Register Address = $DFF07E 

The controller synchronizes itself according to the word in this register, 
if the wordsync bit in the ADKCON register is set The data transmis- 
sion is not started before this word is found on disk. 

Finding a word can trigger an interrupt (Priority 6). Further discussions 
about the interrupt can be found in the proper chapter. 



9.4.7 The DSKDAT registers 



These registers are a pair of which one (DSKDAT) is write only and the 
other (DSKDATR) is read only register. 

Register DSKDAT =$DFF026 
Register DSKDATR = $DFF008 

The register serves as a data buffer during the data transmission from or 
to the disk with the DMA. 
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9.5 



Reading a track 



Up to now the discussion about programming the registers has been 
theoretical. In this chapter it is demonstrated how a track is read and 
decoded and how the operating system performs this task. 

First the documentation of the read routine which is easy to understand 
if the register descriptions are used. 



fea524 lea 


132 (PC) (=$fea5aa) 


,A1 Pointer to routine 

for setting of DSKLEN 


fea528 movem.l A4/A2/D2,-(A7) 


save Register 


£ea52c move.l 


A0,A2 


Load address to A2 


£ea52e move.l 


D0,D2 


Number of Bytes to be read 


fea530 move.l 


A1,A4 


set Pointer to Routine 


fea532 bsr.l 


$feaddc 


Routine for Motor organization 


fea536 move.b 


65(A3),$bfdl00 


set Motor Bits 


fea53e move.w 


#$4000, Sdff 024 


prepare DSKLEN-Register to Read 


fea546 move.l 


#$000003e8,D0 


Value for Waiting loop 


fea54c bsr.s 


$fea4f0 


Wait until Drive is finished 


£ea54e lea 


$dff000,Al 


Pointer to Custom-Chips 


£ea554 move.l 


A2,32(A1) 


set DSKPT-Register 


fea558 move.w 


#$1002, 156 (Al) 


block Sync-Interrupt 


fea55e move.w 


#$8002,154 (Al) 


release Disk-Block-Ready- Int . 


fea564 btst 


#2,$b£e001 


Disk in the Drive? 


fea56c bne.s 


$fea572 


branch if Disk present 


fea56e moveq 


#$ld,D2 


Error Message to D2 


fea570 bra.s 


$fea59e 


End 


fea572 lsr.w 


#1,D2 


convert number of Bytes 
into number of words 


fea574 ori.w 


#$8000, D2 


set Bit for DMA permitted 


fea578 move.l 


D2,D0 


Value to dO 


fea57a jsr 


(A4) 


set DSKLEN-Register, Start 


fea57c bsr.l 


$£ea70a 


wait for return message 


fea580 lea 


$dff000,Al 


Pointer to Custom-Chips 


fea586 move.w 


#$0002, 154 (Al) 


block Disk-Block-Int. 


fea58c move.w 


#$4000, 36 (Al) 


block Disk-DMA (DSKLEN) 


fea592 btst 


#2,$bfe001 


Disk removed ? 


fea59a beq.s 


$fea56e 


yes. Error => End 


£ea59c moveq 


#$00, D2 


Error-Flag on ok 


fea59e bsr.l 


$feae42 


organize Motor 


fea5a2 move.l 


D2.D0 


Return message to DO 


fea5a4 movem.] 


. (A7) +,A4/A2/D2 


restore Register 


fea5a8 its 




Return jump 



Routine for setting the DSKLEN registers. The value is in DO. 



fea5aa move.w 
fea5ae move.w 
fea5b2 rts 



D0,36(A1) 
DO, 36 (Al) 



set Register 
start DMA 
Return jump 



Next follows a program which reads a track with the help of the previ- 
ously discussed routine into the indicated buffer. 
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;Read.s Amiga Disk Drives Inside and Out 

Device = 350 

Port = 36 /Offset for Drive 

RepPort =174 

SigTask =16 

Task =276 

FindName = -276 



Number 
Track 



= $397c 
= 20 



move.l $4,a6 

lea Name, al 

lea Device (a6) , aO 

jsr FindName <a6) 

tst.l dO 

beq Error 

move.l Task(a6),a0 

move.l d0,a6 

move.l Port(a6),a3 

lea RepPort (a3) , al 
move.l SigTask(al), 
move.l al,-(a7) 
move.l aO,SigTask(a 
bset #0,34 <a3) 



;get ExecBase 

;set Pointer to Name 

/Pointer to Device-List 

;seek Trackdisk-Device 

/Device found ? 

/No, error 

/get Pointer to user Task 

/Pointer to Task to A6 

/get Pointer to Drives- 

/Port (Drive 0) 

/Pointer to RepPort 

-<a7)/save Pointer to Task 

/save Pointer to RepPort 

1) /enter user Task 

/block Trackdlsk-Task 



/ From here on starts the actual load routine 



move.l #l,d0 
jsr $fea462 
move.l #Track,dO 
move . w #Tr ack , 7 4 ( a3 
jsr $fea3da 
move.l 78(a3),a0 
move.l #Number,dO 

jsr $fea524 
clr.l dO 
jsr $fea4 62 



/Value for Motor on 
/switch Motor on 
/ Track -Number to DO 

/move Head to position 

/Pointer to read buffer 

/Number of bytes to read 

/to DO 

/read Track 

/Value for Motor off 

/turn Motor off 



/ End of the load routine. The modified pointers must be 
/ restored again. 

bclr #0,34(a3) /release Task again 
move.l <a7)+,al /get Pointer to Task 
move.l (a7)+, SigTask (al) /store again in Port 
Error: rts /Return jump 

Name: dc.b 'trackdisk. device' ,0 



END 
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You may have noticed that in the routine the synchronization on a 
certain bit combination ($4489) was not switched on. For this reason 
the data read was not synchronized. A special routine must be called 
which retroactively recognizes the sync mark and corrects the data read. 

The routine for control of the drive motor erases the previously set bits. 
Using special tricks (see the description of the RAW commands) the 
routine can be made to wait for the sync before the start of read. For the 
sake of clarity the following illustrates how this would be done for a 
user load routine. 



move.w #$8400,$dff09e 
move.w #$4498,$dff07e 



Switch on the synchronization 
determine after which word 
synchronization should occur. 



The routine which corrects the unsynchronized data is explained in the 
following section. 

The main jump is at $FEAFE2. The previous routine is called by the 
main routine. 

The first routine searches for the block header. It is found even if it is 
not known if the block header has clock or data bits in the beginning of 
the buffer. Even if the data is shifted by several bits (because they are 
not synchronized), the header is found. 

The routine orients itself on the four $AA bytes which always precede 
the sync mark. Even if the data is shifted a $AAAA or $5555 is found. 
If the routine finds a $5555, it knows that it found a clock bit. 

In A2 is the pointer to die data to be decoded 
hi DO is the number of the bytes to be searched. 



feaf4c 


movem.l A2/D4-D2,- (A7) 


save Register 


feaf50 


move.w 


#$aaaa, D3 


first control value to D3 


feaf54 


move.w 


#$5555, D4 


second control value to D4 


feaf58 


move . 1 


A0.A2 


Pointer to data to A2 


feaf5a 


adda.l 


D0,A2 


determine end of the data 


feaf5c 


move . w 


(A0)+,D2 


Word to D2 


feaf5e 


cmp.w 


D3,D2 


Word = first control value? 


feafeo 


beq.s 


$feaf98 


branch, if word was found 


feaf62 


cmp.w 


D4,D2 


Word = second control value? 


feaf64 


beq.s 


$feaf70 


branch, if Word was found 


feaf66 


cmpa.l 


A0,A2 


End of data reached? 


feaf68 


bhi.s 


$ feaf 5c 


continue if not reached 


feaf 6a 


moveq 


#$ff,D0 


Error message to DO 


feaf6c 


move . 1 


D0,A0 


DO to AO 


feaf 6e 


bra.s 


$feaf92 


Return jump with error message 



Jump if the second word was found. This means that a clock bit was 
found first 

feaf 70 moveq #$0f,D0 Counter for the Number of 

Bits shifted 
feaf 72 lea $feafa2,Al Pointer to Table to Al 
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feaf78 cmpa.l A0,A2 End of Data? 

feaf7a bls.s $feaf6a yes, error 

feaf7c move.w (A0)+,D1 next Word to Dl 

feaf7e cmp.w D2,D1 still the $AA Byte before the Sync- 
Mark ? 

feaf80 beq.s $feaf78 yes, get next Word 

feaf82 subq.l #2,A0 let AO point to previous Word 

feaf84 move.l (A0),D1 get Longword 

feaf86 cmp.l (A1)+,D1 is this a Sync-Mark? 

leaf 88 beq.s $feaf90 branch, if possible Sync 

feaf8a subq.l #2, DO else decrement number of bits 

feaf8c bge.s $feaf86 branch when not counted down 

feaf8e bra.s $feaf5c else, no Sync found, continue search 

feaf90 subq.l #4,A0 Pointer to beginning of Sync- 

feaf92 movem.l (A7)+,A2/D4-D2 restore Register 
feaf96 rts Return jump 

Set pointer if a data bit was found first 

feaf98 moveq #$0e,D0 Counter for for number of shifted 

Bits to DO 
feaf9a lea $feafc2,Al set Pointer to table 
feafaO bra.s $feaf78 unconditional Jump 

Table for sync recognition when a clock bit was found first 

feafa2: 2244 a244 4891 2891 5224 4a24 5489 1289 
feafb2: 5522 44a2 5548 9128 5552 244a 5554 8912 

Table for sync recognition when a data bit was found first 

feafc2: 9122 5122 a448 9448 a912 2512 aa44 8944 
feafd2: aa91 2251 aaa4 4894 aaa9 1225 4489 4489 

The main routine which corrects the data read, begins here. 

In A2 is the pointer to the data buffer in which the data is stored 

starting at Offset 1664 ($680). 

In A3 is the pointer to the Drive port 

In A6 is the pointer to the Trackdisk Device structure. 



feafe2 movem.l A2/D6-D2,-(A7) 


feafe6 link 


A4,#-16 


feafea move.l 


78(A3),A2 


feafee lea 


1664(A2),A2 


feaff2 move.l 


A2,A0 


feaff4 addq.l 


#2,A0 


feaff6 move.l 


#$00OO0abc,DO 


feaffc bsr.l 


$feaf4c 


febOOO cmpa.l 


#$ffffffff,A0 


feb006 beq.l 


$feble8 


febOOa move.l 


A0,D5 


febOOc move.l 


D0,D2 


febOOe addq.l 


#8,A0 


febOlO moveq 


#$09, D4 


feb012 moveq 


#$00, D6 


feb014 tst.l 


D2 


feb016 bne.s 


$feb03c 



save Register 
make space in Stack 
Pointer to Load Buffer 
Pointer to beginning of data 
Pointer to data to AO 

Bytes read exceed Counter 

search for Block-Header 

Header found ? 

branch if not found 

Pointer to Header to D5 

Number of Bits to shift 

set pointer to longword behind 

sync 

Counter for checksum creation 

clear register for checksum 

do bits have to shift? 

branch if yes 
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£eb018 move.l (A0),-8(A4) else, store Header Bytes 

febOlc move.l 4(A0),-4(A4) store Header Bytes 

feb022 move.l #$55555555, Dl Value for filtering of clock bits 

feb028 move.l (A0)+,D0 get Longword 

feb02a and.l D1,D0 filter out Clock Bits 

feb02c eor.l D0,D6 form Checksum 

feb02e dbf D4,$feb028 decrement Counter 

feb032 move.l (A0)+,-16(A4) store Header-Checksum 

feb03 6 move.l (A0),-12(A4) store Header-Checksum 

feb03a bra.s $feb070 unconditional Jump 

Jump to here if the data was shifted and stored. 



feb03c 


bsr.l 


$feb204 


get header shifted properly 


feb040 


move . 1 


D0,-8(A4) 


store Header 


feb044 


bsr.l 


$feb204 


get Header shifted properly 


feb048 


move.l 


D0,-4(A4) 


store Header 


feb04c 


move.l 


D5,A0 


Sync-Address to A0 


feb04e 


addq.l 


#8,A0 


Pointer to Header 


febOSO 


bsr.l 


$feb204 


get Longword 


feb054 


andi.l 


#$55555555, DO 


filter Clock Bits 


feb05a 


eor.l 


D0,D6 


form Checksum 


feb05c 


dbf 


D4,$feb050 


branch if not finished 


feboeo 


bsr.l 


$feb204 


get Header-Checksum 


feb064 


move.l 


D0,-16(A4) 


and store 


feb068 


bsr.l 


$feb204 


get Header-Checksum 


feb06c 


move.l 


D0,-12(A4) 


and store 


feb070 


lea 


-16 (A4) ,A0 


Pointer to header checksum 


feb074 


bsr.l 


$fead8e 


decode Checksum 


feb078 


crop. 1 


D0,D6 


compare with calculated sum 


feb07a 


bne.l 


$feblec 


branch if not equal, error 


feb07e 


lea 


-8(A4),A0 


set Pointer to Header 


feb082 


bsr.l 


$fead8e 


decode Header 


feb086 


move.l 


D0,D3 


Decoded Header to D3 


feb088 


move.l 


D3,-(A7) 


store in Stack 


feb08a 


cmpi.b 


#$ff,0(A7) 


is DOS identification right? 


feb090 


bne.l 


$feblec 


branch if error 


feb094 


move.b 


1(A7),D0 


get Track number from Header 


feb098 


cmp.b 


75 (A3), DO 


right Track? 


feb09c bne.l 


$feblec 


branch if error 


febOaO 


move . 1 


(A7) +, D3 


nonsense since header is already 
in D3 


feb0a2 


moveq 


#$00, DO 


clear DO 


feb0a4 


move.b 


D3,D0 


Number of Blocks to Gap 


febOae 


mulu 


#$0440, DO 


calculate number of Bytes to Gap 


febOaa 


move . 1 


D5,A0 


Pointer to Sync-Address to A0 


febOae 


move.l 


A2,A1 


Pointer to beginning of data in 
buffer Destination during copying 


febOae 


move.l 


D2,D1 


Number of Bits to shift 


febObO 


move.l 


D0,D4 


Distance to Gap to D4 


feb0b2 


bsr.l 


$feb214 


copy data properly 



The $FEA214 routine copies the data located up to the track gap in the 
data buffer where the right data starts (offset 1664 ($680). If the data is 
shifted by a few bits, they are corrected. This task is performed by the 
blitter. 
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febObe 


moveq 


#$00, D2 


feb0b8 


move.b 


D3,D2 


febOba 


subi.l 


#$OOOOOO0b,D2 


febOcO 


neg.l 


D2 


feb0c2 


beq.s 


$feb0ee 


feb0c4 


add.l 


D4,D5 


£eb0c6 


move.l 


#$0000067c,DO 


febOoc 


move.l 


D5.A0 


febOce 


addq.l 


#2,A0 


febOdO 


bsr.l 


$feaf4c 


feb0d4 


cmpa.l 


#$ffffffff,AO 


febOda 


beq.l 


$feb200 


febOde 


move.l 


D0,D1 


febOeO 


move.l 


A2,A1 


feb0e2 


adda.l 


D4,A1 


feb0e4 


move.l 


D2,D0 


feb0e6 raulu 


#$0440, DO 


febOea bsr.l 


$feb214 


febOee 


move.l 


A2,A0 


febOfO 


adda.l 


D4,A0 


feb0f2 


bsr.l 


$£eadbe 


feb0f6 


lea 


11968 (A2),A0 


febOfa 


move.w 


#$aaa8,D0 


febOfe btst 


#0,-1 (AO) 


febl04 


beq.l 


$febl0c 


febl08 


bclr 


#15, DO 


feblOc 


move.w 


DO, (AO) 


feblOe 


move.w 


#$aaaa, (A2) 


febll2 


moveq 


#$00,D4 


febll4 


moveq 


#$0b,D2 


febll6 


move.w 


D3,D5 


febll8 


lsr.w 


#8,D5 



clear D2 

Number of Blocks to the Gap 
-Maximum Number-1 
Number of Blocks after the Gap 
Branch if no additional 
determine Address of Gap 
Number of Bytes to be searched- 
Address of the Gap to A0 

search Sync for Gap 

Sync found ? 

no, error 

Number of Bits to b shifted 

Data Buffer to Al 

determine destination address for 

Data 

Number of Blocks after Gap 

determine Bytes after Gap 

copy Bytes with help of Blitter 

Data Buffer address to A0 

calculate the Address of newly 

copied data 

correct borders (see coding in 

MFM-Forraat) 

Pointer to end of data 

Value for End marking 

test last data Bit 

branch if Bit was reset 

else erase End marking 

store Mark 

store mark of beginning 

set Block counter to zero 

Number of Blocks to 11 

first Header to D5 

shift off Number of Blocks to Gap 



From here on starts the part which tests the properly shifted track for 
errors. 



feblla cmpi.l 


#$2aaaaaaa, 


0(A2 


,D4.W) found beginning ? 


febl22 beq.s 


$febl30 




branch when found 


febl24 cmpi.l 


#$aaaaaaaa, (A2, D4 .W) found beginning ? 


febl2c bne.l 


SfeblfO 




branch when error 


febl30 cmpi.l 


#$44894489, 


4(A2 


,D4.W) found Sync ? 


febl38 bne.l 


$feblf0 




branch when error 


febl3c lea 


8 (A2, D4 .W) , 


A0 


Pointer to Header 


febl40 moveq 


#$28, Dl 




Number of Bytes for Checksum 


febl42 bsr.l 


$feada4 




form Sum 


febl46 move.l 


D0.D6 




store Sum 


febl48 lea 


48(A2,D4.W) 


,A0 


Pointer to Checksum in Header 


febl4c bsr.l 


$fead8e 




decode Checksum 


febl50 cmp.l 


D6,D0 




Checksum OK ? 


febl52 bne.l 


$feblf8 




branch if error 


febl56 lea 


8(A2,D4.H), 


A0 


Pointer to Header 


febl5a bsr.l 


$fead8e 




decode Header 


febl5e move.l 


D0,-(A7) 




store Header 


febl60 cmpi.b 


#$ff,0(A7) 




DOS identification ok? 


febiee bne.l 


$feblf4 




branch if error 


febl6a move.b 


1(A7),D1 




Track-Number to Dl 


febl6e cmp.b 


75(A3),D1 




Track-Number ok? 


febl72 bne.l 


$feblf4 




branch if error 
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febl76 


move.b 


2<A7),D1 


febl7a 


cmp.b 


D5.D1 


febl7c bne.l 


$feblf4 


febl80 


move.b 


D2,3(A7) 


febl84 


move.l 


(A7) +, DO 


febl86 


lea 


8(A2,D4.W),A0 


febl8a bsr.l 


$£ead46 


febl8e 


lea 


8(A2,D4.W),A0 


febl92 


moveq 


#$28, Dl 


febl94 


bsr.l 


$feada4 


febl98 


lea 


48(A2,D4.W),A0 


febl9c bsr.l 


$fead46 


feblaO 


lea 


64(A2,D4.W),A0 


febla4 


move.w 


#$0400, Dl 


febla8 


bsr.l 


$£eada4 


feblac 


move . 1 


D0,D6 


feblae 


lea 


56(A2,D4.W),A0 


feblb2 


bsr.l 


$fead8e 


feblb6 


cmp.l 


D6,D0 


feblb8 


bne.l 


$feblfc 


feblbc 


subq.l 


#1,D2 


feblbe 


addq.b 


#1,D5 


feblcO 


cmpl.b 


#$0b,D5 


feblc4 


blt.s 


$feblc8 


feblc6 


moveq 


#$00, D5 


feblc8 


addl . w 


#$0440, D4 


feblcc 


cmpi.w 


#$2ecO,D4 


febldO 


bne.l 


Sfeblla 


febld4 


move.l 


D3,D1 


febld6 


lsr.l 


#8,D1 


febld8 


moveq 


#$00,D0 


feblda 


move.b 


D1,D0 


febldc unlk 


A4 


feblde 


mo vera. 1 


(A7)+,A2/D6-D2 


feble2 


rts 





Sector number to Dl 

Sector number ok? 

branch, if error 

enter number of Sectors until Gap 

restore Header 

Pointer to Header-Position 

enter Header again 

Pointer to Header-Position 

Counter for Checksum 

calculate Checksum 

Pointer to Sum entry 

enter Checksum again 

Pointer to beginning of 

Data Blocks 

Number of Bytes to be calculated 

calculate Sum 

store Sum 

Pointer to Data Checksum 

decode Sum 

compare with calculated Sum 

branch, if error 

decrement Counter for number of 

Blocks 

increment Block number 

Block number = 11 

branch, if not 11 

else Block number = Null 

Pointer to next Block 

all Blocks checked ? 

no, next Block 

first Header in Buffer to Dl 

Track-Number to lowest Byte 

clear DO 

Track-Number to DO 

release Stack 

restore Register 

Return jump 



Passing the error numbers, return jump. 



feble4 nop 




feble6 bra.s 


$ febldc 


feble8 moveq 


#$15, DO 


feblea bra.s 


$feble4 


feblec moveq 


#$lb,D0 


feblee bra.s 


$feble4 


feblfO moveq 


#$16,D0 


feblf2 bra.s 


$feble4 


feblf4 moveq 


#$17,D0 


feblf6 bra.s 


$feble4 


feblf8 moveq 


#$18,D0 


feblfa bra.s 


$feble4 


feblfc moveq 


#$19,D0 


feblfe bra.s 


$feble4 


feb200 moveq 


#$la,D0 


feb202 bra.s 


$feble4 



Return jump 
Return jump 
Return jump 
Return jump 
Return jump 
Return jump 
Return jump 



The number of blocks in the buffer is returned in DO. 
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The next routine is quite useful. It reads a track, removes the gap and 
tests the track for errors. If an error occurrs, it tries again to read the 
track until the number of possible recovery attempts has been 
exhausted. 

The track number to be read is located at offset 74 in the Drives Port 
structure. In addition the track number must also be stored at the begin- 
ning of the buffer to be read. Bit at offset 2 starting at the buffer must 
also be erased. 

The pointer to the buffer into which the data should be written is 
located at offset 78 in the Drive Port structure. After loading, they are 
located starting at offset $1668 ($684). 



fea99e 


movem . 1 


A2,-(A7) 


fea9a2 


move.l 


78{A3),A2 


fea9a6 


moveq 


#$01,D0 


fea9a8 


bsr.l 


$fea462 


fea9ac 


moveq 


#$00, DO 


fea9ae 


move.w 


74 (A3), DO 


fea9b2 


bsr.l 


$£ea3da 


£ea9b6 


lea 


1668(A2),A0 


fea9ba 


move.w 


#$3 97c, DO 


fea9be 


bsr.l 


$fea524 


fea9c2 


tst.l 


DO 


fea9c4 


beq.s 


$fea9ce 


fea9c6 


move.b 


D0,3(A2) 


fea9ca 


bra.l 


$fea9f8 


£ea9ce 


bsr.l 


$feafe2 


fea9d2 


move.b 


D0,3(A2) 


fea9d6 


cmpi .b 


#$0b,D0 


fea9da 


bcs.s 


$fea9f8 


fea9dc 


addq.b 


#1, 66 (A3) 


fea9e0 


move.b 


66 (A3), DO 


fea9e4 


cmp.b 


52 (A3), DO 


£ea9e8 


bgt.s 


$£ea9£8 


tea Sea 


andl.b 


#503, DO 


fea9ee 


bne.s 


$fea9b6 


fea9f0 


move . w 


#$ffff,76(A3) 


fea9f6 


bra.s 


$£ea9ac 


fea9f8 


movem. 1 


(A7)+,A2 


fea9fc 


rts 





save A2 

get Pointer to Buffer 

Value for Motor on 

switch Motor on 

clear DO 

Track-Number to DO 

Head positioning 

Pointer to beginning of data 

Number of Bytes to be read 

read Track 

Error during read ? 

branch, if no error 

else pass error number 

unconditional Jump 

correct Track, remove Gap 

store Sector number 

compare Sector number with 11 

branch, if everything is ok 

else error occurred 

increment number of errors 

Number of errors at maximum? 

branch, if maximum 

Error number a multiple of 4? 

no, try again 

else value for new positioning 

of Head (first to Null) 

unconditional Jump 

restore A2 

Return jump 



Finally this routine which reads a track, decodes it and moves it to the 
buffer. The destination address must be indicated by the program. The 
program uses the routine just described. 



;Read-d.d Amiga Disk Drives Inside and Out 



Device 


= 350 




Port 


= 36 


; Offset for 


RepPort 


= 174 




SigTask 


= 16 




Task 


= 276 




FindName 


= -276 





Drive 



Track 



20 



/Number of Track to be read 
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/Destination = ???? 

/Destination must be provided by the user. 

Destination =$5000 ; for testing only 
move.l $4, a 6 ;get ExecBase 
lea Name,al ;set Pointer to Name 

lea Device (a6) ,a0 /Pointer to Device-List 
jsr FindName(a6) /search for Trackdisk-Device 
tst.l dO /Device found ? 

beq Error /No, Error 
move.l Task(a6),a0 /get Pointer to user Task 
move.l d0,a6 
move.l Port(a6),a3 



/Pointer to Task to A6 
/get pointer to drive 
/Port (Drive 0) 
/Pointer to RepPort 
(a7)/save Pointer to Task 



lea RepPort (a3) , al 
move.l SigTask(al), 
move.l al,-(a7) /save Pointer to RepPort 
move.l aO,SigTask<al) /store user Task 
bset 40,34 (a3) /block Trackdisk-Task 
The actual load routine starts here 



11: 



13: 



12: 



move.l #Track,d0 
move.w d0,74 (a3) 
move.l 78 (a3) ,a2 
move.w dO, (a2) 
bclr #0,2 (a2) 
clr.b 66(a3) 
jsr $fea99e 
clr.l dO 
jsr $fea462 
move.b 3(a2) ,d0 
cmp.b #$0b,d0 
bcc Ende 
move.b #$0b,d6 
clr.l dO 
sub.b 3(a2) ,d0 
bpl 11 

addi.b #$0b,d0 
mulu #$440, dO 
lea 1664 <a2) ,a4 
adda.l d0,a4 
lea Destination, 
clr.l d7 
lea 64(a4),al 
move.l a5,a0 
move.l #$200, dO 
jsr $feacb2 
adda.l #$200, a5 
sub.b #l,d6 
beq Ende 
add.b #l,d7 
cmp.b 3(a2) ,d7 
bne 12 

lea 1664(a2),a4 
bra 13 

add.l #$440, a4 
bra 13 



/Track-Number to DO 
/store in Structure 
/Pointer to Data buffer 
/store Track-Number 
/erase Bit 
/erase Err or number 
/read Track 
/Value for Motor off 
/switch Motor off 
/first Block number to DO 
/Number larger than 11 
/yes. Error 
/Sector Number 
/first Block = Null 



/Address of the Block 
/calculate Null 
/Pointer start of Data 
/Pointer to Block zero 
a5 /set Pointer to dest 
/start at Sector zero 
/Pointer to Data block 
/Destination to A0 
/Number to be decoded 
/decode Data 
/increment Dest Pointer 
/decrement number of Blocks 
/branch, when done 
/increment Block number 
/continue start of Buffer 
/no, continue normally 
/Pointer start of Buffer 
/unconditional Jump 
/Pointer to next Block 
/unconditional Jump 
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; End of the load routine. The modified pointers 
; must be restored. 

Ende: bclr #0,34 (a3) /release Task again 
move.l (a7)+,al ;get Pointer to Task 
move.l (a7)+,SigTask(al) /enter again in Port 

Error: rts /Return jump 

Name: dc.b 'trackdisk. device ',0 



END 

With the help of the routines described and the examples, you should 
now be able to read and decode a track directly. 
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9.6 



Writing a track to disk 



The coding of data and how it is written on a desired track will now be 
shown. 

The Write routine is similar in construction to the Load routine. One 
difference is that during the writing of a track the write density changes, 
depending on its position. The operating system only uses two of the 
four possible write densities. A change in write density is performed 
starting at track 80. 

The Save routine of the operating system demonstrates how a track is 
written. 



fea5b4 


lea 


-12 (PC) <=$fea5aa) , Al 


£ea5b8 


movem.l A4/A2/D2,-(A7) 


feaSbc 


move.l 


A0,A2 


fea5be 


move.l 


D0,D2 


fea5c0 


move.l 


A1,A4 


fea5c2 


bsr.l 


$feaddc 


fea5c6 


move .b 


65(A3),$bfdl00 


fea5ce 


move.w 


#$4000, $dff 024 


fea5d6 


move.l 


#$000003e8,DO 


fea5dc 


bsr.l 


$fea4f0 


fea5e0 


lea 


$dff000,Al 


£ea5e6 


move . 1 


A2, 32 (Al) 


fea5ea 


move.w 


#$1002, 156 (Al) 


fea5f0 


move.w 


#$8002, 154 (Al) 


fea5f6 


btst 


#2,$b£e001 


fea5fe 


bne.s 


$fea60e 


fea600 


moveq 


#$ld,D2 


fea602 


bra.l 


$£ea6e2 


fea606 


btst 


#3,$bfe001 


fea60e 


beq.l 


$£ea6ee 


fea612 


move.l 


$0004, A0 


feaeie 


move.w 


#$4000, $dff 09a 


fea61e 


addq.b 


#1,294 (A0) 


fea622 


btst 


#4,34 (A6) 


fea628 


beq.s 


$fea642 


fea62a 


moveq 


#$23, D2 


fea62c 


move.l 


$0004, A0 


fea630 


subq.b 


#1,294 (A0) 


£ea634 


bge.s 


$fea63e 


fea636 


move.w 


#$c000,$dff09a 


fea63e 


bra.l 


$fea6e2 


fea642 


bset 


#5, 34 (A6) 


fea648 


move.l 


$0004, A0 


fea64c 


subq.b 


#1,294 (A0) 


fea650 


bge.s 


$£ea65a 


feaS52 


move.w 


#$c000,$dff09a 


fea65a 


move.w 


#$6000, 158 (Al) 


density 




fea660 


move.w 


76 (A3), DO 



Pointer to DSKLEN register 

save Register 

Pointer to Write buffer 

Number Bytes to be written 

Pointer to DSKLEN-Routine 

Motor control 

set Motor Bits 

block Disk-DMA 

Value for Waiting loop 

Wait 

Pointer to Custom-Chips 

set DSKPT-Register 

clear Disk block interrupt 

Request 

enable Disk-Block- Int. 

Disk in Drive? 

branch, if ok 

Error number to D2 

End, Error 

Disk write protected? 

branch, if protected 

Pointer to ExecBase 

Disable- 

Macro 

Bit 4 in Status-Byte set 

branch, if reset 

else Error number to D2 

get ExecBase 

Enable- 

Macro 

unconditional Jump 
set Bit 5 
ExecBase to A0 
Enable- 

Macro 

reset Bit for lesser write 

Track-Position 
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fea664 move.w #$8000, Dl 
fea668 cmp.w 38 (A3), DO 



£ea66c bls.s 


$£ea686 


fea66e 


move.w 


#$a000,Dl 


fea672 


cmp.w 


40 (A3), DO 


fea676 


bls.s 


$fea686 


fea678 


move . w 


#$c000,Dl 


fea67c 


cmp.w 


42 (A3), DO 


fea680 


bls.s 


$fea686 


fea682 


move.w 


#$e000,Dl 


£ea686 


move.w 


D1,158(A1) 


fea68a 


lsr.w 


#1,D2 


fea68c 


orl.w 


#$c000,D2 


fea690 


move . 1 


D2,D0 


£ea692 


jsr 


(A4) 


fea694 


bsr.l 


$£ea70a 


fea698 


lea 


$dff000,Al 


fea69e 


move.w 


#$0002, 154 (Al) 


fea6a4 


move.l 


#$000007dO,DO 


£ea6aa 


bsr.l 


$fea4f0 


£ea6ae 


move.w 


#$4000, 36 (Al) 


fea6b4 


move.b 


34(A6),D0 


fea6b8 


bclr 


#5, 34 (A6) 


fea6be 


btst 


#4, DO 


fea6c2 


beq.s 


$fea6d4 


fea6c4 


lea 


120(A6),A1 


fea6c8 


move . 1 


A6,-(A7) 


fea6ca 


move.l 


20(A1),A6 


fea6ce 


jsr 


-30 (A6) 


£ea6d2 


move . 1 


(A7)+,A6 


fea6d4 


btst 


#2,$bfe001 


£ea6dc 


beq.l 


$fea600 


£ea6e0 


moveq 


#$00, D2 


fea6e2 


bsr.l 


$feae42 


£ea6e6 


move.l 


D2,D0 


fea6e8 


movem. 1 


(A7)+,A4/A2/D2 


£ea6ec 


rts 





Jump point when write protected. 



fea6ee moveq 
fea6f0 bra.s 



#$lo,D2 
$fea6e2 



Write density to 
conpare if writing with 
another write density 
Track number smaller 
else Write density 1 
compare Track-Number 
Track-Number smaller 
else Write density 2 
compare Track-Number 
Track-Number smaller 
else Write density 3 
store Write density 
change number of Bytes to 
be written to Words 
set Bits for writing 
Value to DO 
write DSKLEN-Register 
(see Load-Routine) 
wait until Track has been 
written 

Pointer to Custom-Chips 
block Disk-Block-Int. 
Value for time loop 
Wait 
block Disk-DMA 

erase Bit 5 

in user System, 
unconditional Jump 



Disk in Drive? 
branch, if no 
return message ok 
Motor control 
Return message to DO 
restore Register 
Return jump 



Error number to D2 
unconditional Jump 



We've already seen how the operating system codes a track (in the 
section on coding). Next a program that performs all the tasks. 

The following program makes it possible to store data which is located 
in chip memory; ($0000-$80000). The routine has the advantage, com- 
pared with the operating system, that it does not check if there is an 
error on the track to be written. Therefore all disks can be written with 
this program, even if they are (for example) MS-DOS disks. If an error 
does occur, it is not intercepted by the program. A test for errors must 
be added 
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If an error occurs, the error number is passed in DO. Otherwise DO 
returns a null. 

The beginning of the program is the same as the previous examples. 

/Write. s Amiga Disk Drives Inside and Out 

Device = 350 

Port = 36 /Offset for Drive 

RepPort = 174 

SigTask = 16 

Task = 276 

FindName = -276 



Track = 20 /Number of the Tracks to read 

Address = $50000 /The Address which memory 

/ starts can only be in Chip-Memory. 

/Here $50000 was selected. 

move.l $4, a 6 /get ExecBase 

lea Name, al /set Pointer to Name 

lea Device (a6) ,a0 /Pointer to Device-List 

jsr FindName (a6) /search for Trackdisk-Device 

tst.l dO /Device found ? 

beq Error /No, Error 

move.l Task(a6),a0 /get Pointer to user Task 

move.l d0,a6 

move.l Port(a6),a3 



lea RepPort <a3) , al 
move.l SigTask (al), 
move.l al,-(a7) 
move.l aO, SigTask (al) 
bset #0,34 (a3) 



/Pointer to Task to A6 
/get Pointer to Drive- 
/Port (Drive 0) 

/Pointer to RepPort 
•(a7)/save Pointer to Task 
/ save Pointer to RepPort 



/store user Task 
/block Trackdisk-Task 



/ Starting here is the actual write routine 



LI: 



L2: 



move.l #l,d0 
jsr $FEA462 
move.l #TRACK,D2 
move.l D2,D0 
jsr $FEA3DA 
lea Address, A5 



/Value for Motor on 
/switch Motor on 
/Track-Number to D2 
/ Track -Number to DO 
/Head positioning 
/Pointer to Start 



/address of Data to transmit to A5 



move.l $52(A3),A2 
lea 4(A2),A2 
move.w #$FFF,D0 
move.l #$AAAAAAAA, Dl 
move.l Dl, (A2) + 
dbra DO, LI 
movea.l $52(A3),A2 



/Pointer to Write buffer 

/erase counter value 
/Value for erasing 
/erase Write buffer 
/branch, until done 
/Pointer to Write buffer 



lea $680(A2),A2 /Pointer to beginning of data 



moveq #$0B,D4 
moveq #0,D5 
move.l #$FF000000,D0 
move.l D5,D1 
lsl.l #8,D1 



/Number of Blocks 
/Block counter to Null 
/DOS id of the Header 
/Block number to Dl 
/shift Number to proper 
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/position 
; store in Header 
/store number of blocks to gap 
/ Track -Number to Dl 
/Number to proper Position 
/enter Track -Number 
/Write buffer to Al 
/Pointer to Data to AO 
/code Data and shift into 
/Write buffer 
/increment Block counter 
/Pointer to next Block 
/in the Write buffer 
/Pointer to next Data 
/decrement number of Blocks 

bne.s L2 /branch, if not finished coding 

movea.l $52(A3),A0 /Pointer to Write buffer 

lea 4<A0),A0 

move.w #$353E,D0 

jsr $FEA5B4 

move.l #0,d0 

jsr $FEA462 



or.l D1,D0 
or.l D4,D0 
move.l D2,D1 
swap Dl 
or.l D1,D0 
movea.l A2,A1 
movea.l A5,A0 
jsr $FEAADC 

addq.l #1,D5 
adda.l #$440, A2 

adda.l #$200, A5 
subq.l #1,D4 



/Data number for writing 
/write Track 
/Value for Motor off 
/switch Motor off 



/ End of the write routine. The changed 
/ Pointers must be restored. 

Ende: bclr #0,34(a3) /release Task again 

move.l (a7)+,al /get Pointer to Task 

move.l (a7) +,SigTask(al) /store in Port again 

Error: rts /Return jump 

Name: dc.b ■ trackdisk. device" ,0 



END 
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9.7 



The disk interrupts 



During disk operations it is possible to trigger two different kinds of 
interrupts. One can be triggered when the controller recognizes a sync 
mark. This is triggered through a flag line from the CIAB and produces 
a Level 6 interrupt It is used by the operating system only with the 
RAW commands. 

The second interrupt is triggered, when a data block is completely 
transmitted. This occurs during reading and writing of a track. This 
produces a Level 1 interrupt 

First the Disk Block interrupt is discussed since it is the most impor- 
tant for the system. When transmission to or from the disk is started 
with the DSKLEN register, the Save and Load routines branch to a sub- 
routine which puts the task into a wait status. This routine appears as 
follows: 

hi A3 is the pointer to the Drive port 

In A6 is the pointer to the Trackdisk Device structure. 



fea'/Oa 


move . 1 


#$00000400, DO 


set Signal Bits 


fea710 


move.l 


A6,-(A7) 


save A6 


fea712 


move . 1 


52(A6),A6 


Pointer to ExecBase 


fea716 


jsr 


-318 (A6) 


Wait -Function 


fea71a 


move.l 


(A7)+,A6 


restore A6 


fea71c 


lea 


174(A3),A0 


Pointer to Reply-Port 


fea720 


move.l 


A6,-(A7) 


save A6 


fea722 


move . 1 


52(A6),A6 


Pointer to ExecBase 


£ea726 


jsr 


-372 (A6) 


GetMsg-Funct ion 


fea72a 


move.l 


(A7)+,A6 


restore A6 


fea72c 


tst.l 


DO 


Msg. arrived 


fea72e 


beq.s 


$fea70a 


branch, if not arrived 


fea730 


rts 




Return jump 



Looking at the routine the question arises where the message is sent to 
restart the task. The answer is simple. As soon as the block is transmit- 
ted, the Disk Block interrupt is executed which processes the routine. 

hi Al is the pointer to the Disk Resource structure. 

This pointer is in the Interrupt Vector structure in the ExecBase struc- 
ture. 



fc4a80 move.w #$0002, $dff 09c 
fc4a88 move.l 34(A1),D0 
fc4a8c beq.s $fc4ac0 
fc4a8e move.l D0,A1 
fc4a90 movem.l 34(A1),A5/A1 



Reset the Int . -Request-Bit 

Pointer to Reply-Msg. 

Guru, when not set 

Reply-Msg. to Al 

Pointer to Interrupt-Vector- 

Structure 
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fc4a96 jmp 



(A5) 



Al = Pointer to Drive-Port 
A5 = $FEA6F2 
Location for Jump 



In Al is the pointer to the Drive port. 



£ea6£2 lea 
fea6f6 lea 
fea6fa move.l 
fea6fc move.l 
fea702 jsr 
fea706 move.l 
fea708 rts 



174(A1),A0 
94(A1),A1 
A6,-<A7) 
$000004, A6 
-366 (A6) 
(A7)+,A6 



Pointer to Reply-Port 

Pointer to Reply-Message 

save A6 

Pointer to ExecBase 

PutMsg-Funct ion 

restore A6 

Return jump 



With this system computer time is provided for other tasks which the 
Trackdisk task cannot use, since it has to wait for the completion of the 
disk operation. 

Now to discuss an interrupt which is not important to the operating 
system but can occur when the disk controller synchronizes. The inter- 
rupt jumps to the following routine. 

In Al is a pointer to the Disk Resource structure. 



fc4a98 move.w #$1000, Sdff 09c 
fc4aa0 move.l 34(A1),D0 
fc4aa4 beq.s $fc4ac0 
fc4aa6 move.l D0,A1 
fc4aa8 movem.l 56(A1),A5/A1 



£c4aae jmp 



(A5) 



erase Int . -Request -Bit 
Pointer to Rep-Msg. 
Guru, if Msg. not present 
Pointer to Message to Al 
Pointer to Interrupt-Vector- 
Structure in the 
Drive s-Port -Structure 
Location for Jump 



The Interrupt Vector structure addressed in the listing is not initialized. 
If necessary this can be used for other purposes. 

The Reply Message structure is a structure which is inside the Message 
Port structure for the various drives (Drives port). Starting at offset 242 
and 264 are the Interrupt Vector structures for the two interrupts which 
can be used as desired. 
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The Diskmon.s program 



/Diskmon.s, run from CLI only 

/See the Abacus book Amiga Disk Drives Inside and Out 

/Section 6.1 for instructions 

/Assemble with AssemPro Amiga 

Exodus : 

OldOpenLibrary =-408 

CloseLibrary =-414 

AllocMem =-198 

FreeMem =-210 

Read = -42 

Write = -48 

Open = -30 

Close = -36 

FindTask =-2 94 

OpenDevice =-444 

CloseDevice =-450 

DoIO =-456 



tst.l dO 
beq.s run 
cmp.l #5,d0 
bne . s run 
cmp.b #"d", (aO) 
bne.s run 
cmp.b #"f",l(a0) 
bne . s run 
cmp.b #":",3(a0) 
bne . s run 
move.b 2 (aO) ,d0 
sub.b #"0",d0 
move.b dO, device 
run: move.l 4,a6 

lea dosname, al 
jsr OldOpenLibrary <a6) 
move.l d0,dosbase 
beq error 

move.l #$10002, dl 
move.l #512, dO 
jsr AllocMem (a6) 
move.l dO, buffer 
beq error 

sub.l al,al 

jsr FindTask (a6) 



/parameter length 



/test for "dfx: 



/SET DRIVE 

/dos. library open 



/512 byte buffer in chipmem 
/ reserved 



/task for trackdisk. device 
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lea diskport,aO 
move.l dO,16(aO) 
clr.l dO 

move.b device, dO 
moveq #0,dl 
lea diskioreq, al 
lea trkdisk.aO 
j s r OpenDevi ce ( a 6 ) 
tst.l dO 
bne nodrive 
move.b device, dO 
add.b #"0",d0 
move.b dO, drive 
move . 1 dosbase, a 6 
move.l #title,dl 
move.l #1005, d2 
jsr Open(a6) 
move.l d0,wdhd 
beq error 

jsr crsroff 
move.l wdhd, dl 
move.l #top,d2 
move.l #toplen,d3 
jsr Write <a6) 

jsr dumpblock 
move.b #"r",key 
move.b #"h", display 
bra.s start 



;trackdisk. device for dfx: open 



; close library, release memory 
;ldrive in command line set 



/open raw-window 



; windowhandle 



/cursor off 
/menu display 



/output block # and $,clr errors 
/simlulate read command 
/hex display 



start: 



jsr 

jsr 

jsr 

cmp, 

beq. 

cmp, 

beq 

cmp. 

beq 

cmp. 

beq 

cmp, 

beq 

cmp, 

beq 

cmp, 

beq 

cmp, 

beq 

cmp. 



dumptype 

dumpcheck 

get key 

b #$lb,key 

s quit 

b #"r",key 

readsec 

b #"w",key 

writesec 

b #"c",key 

check 

b #••#", key 

blockedit 

b #"$",key 

blockedithex 

b #"+",key 

up 

b #"-",key 

down 

b #"a",key 



beq asciiedit 
cmp.b #"h",key 
beq hexedit 
bne main 



/typ output 
/checksum output 
/get next key 
/program end 

/read block and display 

/write blockand display 

/data checksum create 

/decimal block input and read 

/hexadecimal block input and read 

/block +1 read 

/block -1 read 

/ascii input 

/hex input 
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quit : move . 1 dosbase, a6 
move.l wdhd,dl 
jsr Close (a6) 

move.l 4, a 6 

lea diskioreq, al 

jsr CloseDevice (a6) 



; close window 



; close trackdisk.de vice 



nodrive: move.l buffer, al 
move.l #512, dO 
jsr FreeMem(a6) 

move.l dosbase, al 
jsr CloseLibrary (a6) 
clr.l dO 
rts 



;free buffer 



,• close dos . library 



moveq #100, dO 

rts 



;returncode 100 for system error 



dumphex : cmp . b #"a", display 
beq hex st op 



# n 0",row 
#"6",row+l 
#"0",col 
#"2",col+l 
buf fer,buf fptr 



move . b 

move . b 

move . b 

move . b 

move . 1 

clr.w adr 

moveq #15, d6 
poshex: jsr cursor 

move.w adr, do 

jsr convword 

jsr printword 

move.b #" ",key 

jsr printkey 

add.w #$20, adr 

moveq #15, d5 

lea linebuf,a2 
x: move.l buf fptr, al 

add.l #2,buffptr 

move.w (al),d0 

jsr convword 

move.l mytext,(a2)+ 

dbra d5,x 

jsr Printline 

move.b row+l,d0 

cmp.b #"9",d0 

bne.s 11 

add.b #l,row 

move.b #"0"-l,row+l 
11: add.b #l,row+l 

dbra d6, poshex 
hexstop: rts 



;ascii input- NTSC added 
;NTSC added 
/cursor pos. 



/buffer pointer to start 

;16 lines 
/address output 



/space printed 

/inc. address by $20 
/16 words per line 
/buffer for line 

/buffer pointer2 
/get word 
/convert to ascii 
/copy to line buffer 



/cursor pos. line +1 
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convde z : lea mytext , aO 
divu #1000, dO 
add.b #"0",d0 
move.b dO, (aO) + 
clr.w dO 
swap dO 
divu #100, dO 
add.b #"0",d0 
move.b dO, (aO) + 
clr.w dO 
swap dO 
divu #10, dO 
add.b #"0",d0 
move.b dO, (a0) + 
clr.w dO 
swap dO 
add.b #"0",d0 
move.b dO, (a0) + 
rts 



/convert word in dO by 4 
/decimal number 



convword: 

moveq #3,d2 
lea mytext+4,a0 

10: move.b dO,dl 
and.b #$0f,dl 
lsr.w #4,d0 
cmp.b #$09, dl 
bgt . s hex 
add.b #"0",dl 
bra.s do 

hex: add.b #"a"-10,dl 

do: move.b dl,-(a0) 
dbra d2,10 
rts 



/convert word in dO to ascii text 



print word: 

move.l wdhd,dl 
move.l #mytext,d2 
moveq #4 , d3 
jsr Write (a6) 
rts 



/text output 



dumpasc: cmp.b #"h", display 
beq ascstop 
move.b #"0",row 
move.b #"6",row+l 
move.b #"0",col 
move.b #"2",col+l 
move.l buffer, buff ptr 
clr.w adr 
moveq #7,d6 

posasc: jsr cursor 

move.w adr,d0 
jsr convword 
jsr printword 
move.b #" ",key 



/check for hex display NTSC only 

block ascii output Pal=2 
PA1 =3 
PAL =0 
Pal =2 



PAL=7 
address output 



/ space printed 
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jsr printkey 
add.w #$40,adr 
moveq #63, d5 
lea linebuf,a2 
move.l buffptr,al 

y: move.b (al)+,dO 
cmp.b #" ",d0 
blt.s dot 
cmp.b #"z",dO 
bgt . s dot 
move.b dO, (a2) + 
bra.s chr 

dot: move.b #".", (a2)+ 

chr: dbra d5,y 

move.l al,buffptr 
jsr Printline 
move.b row+l,dO 
cmp.b #"9",d0 
bne.s 12 
add.b #l,row 
move.b #"0"-l, row+1 

12: add.b #1, row+1 
dbra d6,posasc 
move.l wdhd,dl 
move.l #clrhex,d2 
move.l #clrhexlen,d3 
jsr Write (a6) 



;line buffer 

;get byte and mask ascii 



/replace control char with "." 



/line buffer output 
/cursor pos. line +1 



/NTSC only to clear 8 hex lines 
/NTSC only 
/NTSC only 
/NTSC only 



ascstop:rts 



Printline: 

move 
move 



1 wdhd,dl 

1 #linebuf,d2 

moveq #64, d3 

jsr Write (a6) 

rts 



/line buffer output 



dumpcheck : 

move.b #"0",row 
move.b #"4", row+1 
move.b #"5", col 
move.b #"l ,, ,col+l 
jsr cursor 
move.l buffer, aO 
move.w 20 <a0) ,d0 
jsr convword 
jsr printword 
move.l buffer, aO 
move.w 22(a0),d0 
jsr convword 
jsr printword 
rts 



/checksum output 



/upper word 



/ lower word 



dumpblock : 

move.b t"0' 



,row 



/block number dez. and hex. output 
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move.b #"4",row+l 
move.b #"0",col 
move.b #"9",col+l 
jsr cursor 
move.w block, dO 
mulu #512, dO 
raove.l dO, offset 
clr.l dO 
move.w block, dO 
jsr convdez 
jsr printword 
move.b #"0",row 
move.b #"4",row+l 
move.b #"l",col 
move.b #"5",col+l 
jsr cursor 
move.w block, dO 
jsr convword 
jsr printword 

move.l #clear,d4 
moveq #clrlen,d5 
jsr doerr 
rts 

dumptype: 

move.b #"0",row 
move.b #"2",row+l 
move.b #"0",col 
move.b #"2",col+l 
jsr cursor 
move.l wdhd,dl 
move.l #unkn,d2 
moveq #10, d3 
cmp.w #2, block 
bge.s noboot 
move . 1 #boot , d2 
bra . s noknown 

noboot: move.l buffer, aO 
cmp.l #8, (aO) 
bne.s nodata 
move.l #dat,d2 

nodata: cmp.l #$10, (aO) 
bne.s nolistlng 
cmp.l #-3,508 (aO) 
bne.s nolistlng 
move.l #flist,d2 

nolisting: cmp.l #2, (aO) 

bne.s noknown 
cmp.l #l,508(a0) 
bne . s noroot 
move.l #root,d2 
noroot: cmp.l #2,508(a0) 
bne.s noudir 
move.l #udir,d2 



;set offset for read/write 

/convert block decimal 
/convert block hex. 



rclr error message 



/block type output 



/typ unknown 

/typ-lenght 

/boot block=0,l 



/data 



l.LW=$00000008 



/filelist l.LW=$00000010 
/filelist 127.LW=$fffffffd 



/root,userdir, filehead 

l.LW=$00000002 

/root 127.LW=$00000001 



/userdir 127 .LW=$00000002 
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noudir: cmp.l #-3,508(a0) 
bne.s noknown 
move.l #fhead,d2 

noknown :jsr Write (a6) 
rts 



;filehead 127.LW=$f f ff ff fd 



getkey: move.l wdhd,dl 
move.l #key,d2 
moveq #l,d3 
jsr Read(a6) 
rts 



;wait for key 
/get next key 



printkey: 



move.l wdhd,dl 
move.l #key,d2 
moveq #l,d3 
jsr Write <a6) 
rts 



;char key printed 



cursor: jsr cursoff 

move.l wdhd,dl 
move.l #adrpos,d2 
moveq #7,d3 
jsr Write (a6) 
lea mytext,aO 
move.l #" ", (aO) 
btst #0,crsrstatus 
beq.s noadr 
move.l buffptr,dO 
sub.l buffer, dO 
jsr convdez 

noadr: jsr printword 
move.l wdhd,dl 
move.l #adrpos2,d2 
moveq #7,d3 
jsr Write (a6) 
lea mytext,aO 
move.l #" ", (aO) 
btst #0,crsrstatus 
beq.s noadr 2 
move.l buffptr,dO 
sub.l buffer, dO 
jsr convword 

noadr2 : jsr printword 
move.l wdhd, dl 
move.l #pos,d2 
moveq #7,d3 
jsr Write (a6) 
btst #0,crsrstatus 
beq.s no 
jsr curson 

no: rts 



/cursor off, no status change 
/cursor on #address position 



;when cursor off,clr address 

;else output address 
; address=pointer-start 



; position cursor on $address 



/when cursor off, clr address 
/else output address 

/cursor position 



/cursor on. no status change 



crsron: bset #0,crsrstatus 
curson: move.l wdhd,dl 
move.l #con,d2 



/ switch cursor on 
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moveq #3,d3 
jsr Write (a6) 
rts 



crsrofftbclr #0,crsrstatus 
cursoff :move.l wdhd,dl 

move.l #coff,d2 

moveq #4,d3 

jsr Write (a6) 

rts 



/switch cursor off 



doerr: move.l dosbase,a6 
move.b #"0",row 
move.b #"4",row+l 
move.b #"6", col 
move.b #"0",col+l 
jsr cursor 
move.l wdhd,dl 
move.l d4,d2 
move.l d5,d3 
jsr Write (a6) 
lea diskioreq, aO 
clr.l 32 (aO) 
rts 



; output error message d4/d5 



;clr error status 



mtroff: move.l 4,a6 

lea diskioreq, al 
move.w #9,28(al) 
clr.l 36<al) 
jsr DoIO(a6) 
move.l dosbase,a6 
rts 



/switch motor off 
/motor on 



readsec: move.l 4,a6 

lea diskioreq, al 
move.w #14,28 (al) 
jsr DoIO(a6) 
lea diskioreq, al 
tst.l 32 (al) 
beq.s dsk 

move.l #nderr,d4 
moveq #ndlen,d5 
jsr doerr 
bra here 

dsk: lea diskioreq, al 
move.w #2,28(al) 
move.l #512,36(al) 
move.l buffer, 40 (al) 
move.l offset, 44 (al) 
jsr DoIO(a6) 
tst.l dO 
beq.s noerr 

move.l #rderr,d4 



/read block into buffer 
/test is disk inserted 



/output error 

/read finished 
/block read 



/test for read error 



/error output 
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moveq #rdlen,d5 




jsr doerr 




bra.s here 


noerr : 


jsr dumpblock 


here: 


jsr mtroff 




jsr dumpcheck 




jsr dumptype 




cmp.b #"a",key 




jsr dumpasc 



; output block number, clr error 

; checksum 

;type 

;ascii input NTSC added 

; NTSC added 



cmp.b #"h",key 



;hex input NTSC added 



jsr dumphex 
jsr dumpasc 
bra main 



; hex . output 

;ascii output orginal pal 



writesec: 



move.l 4,a6 
lea diskioreq, al 
move.w #14,28 (al) 
jsr DoI0(a6) 
lea diskioreq, al 
tst.l 32 (al) 
beq.s dsk2 



/write block to disk 



;test if disk inserted 



move.l #nderr,d4 
moveq #ndlen,d5 
jsr doerr 
bra here2 



/error output 



dsk2: lea diskioreq, al 
move.w #15,28(al) 
jsr DoIO(a6) 
lea diskioreq, al 
tst.l 32 (al) 
beq.s dsk3 



/test for write-protect 



move.l #pterr,d4 
moveq #ptlen,d5 
jsr doerr 
bra here2 



/error output 



dsk3: move.w #3,28(al) 

move.l #512,36(al) 
move.l buffer, 40 (al) 
move.l offset, 44 (al) 
jsr DoIO(a6) 
lea diskioreq, al 
move.w #4,28(al) 
move.l #512,36(al) 
move.l buffer, 40 (al) 
move.l of fset,44 (al) 
jsr DoIO(a6) 
tst.l dO 
beq.s noerr 2 



/block write 



/update disk 



/test for write error 
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move.l #wrerr,d4 




moveq #wrlen,d5 




jsr doerr 




bra.s here2 


noerr2 : 


jsr dumpblock 


here2 : 


jsr mtroff 




jsr dumpcheck 




jsr dumphex 




jsr dumpasc 




bra main 



check: move.l buffer, aO 
moveq #126, dO 
clr.l dl 

adck: cmp.w #121, dO 
bne . s ck 
add.l #4,a0 

ck: sub.l (aO)+,dl 
dbra dO,adck 
move.l buffer, aO 
move.l dl,20(a0) 
jsr dumpcheck 
jsr dumphex 
jsr dumpasc 
bra main 



blockedit : 

move.b 



#"0",row 
move.b #"4",row+l 
move.b #"0",col 
move.b #"9",col+l 
jsr cursor 
jsr crsron 
moveq #3,d4 
lea my text, a5 
jsr getkey 
cmp.b #"0",key 
blt.s in 
cmp.b #"9", key 
bgt.s in 
jsr printkey 
move.b key, <a5) + 
dbra d4,in 
jsr crsroff 
clr.w block 
lea mytext,aO 
clr.w dO 
move.b (aO)+,dO 
sub.w #"0",d0 
mulu #1000, dO 
add.w dO, block 
clr.w dO 
move.b (a0)+,d0 
sub.w #"0",d0 



; error output 



/output everything 



/calculate buffer checksum 
; jump over checksum 

/record checksum 
/ output 

/input block number in dec. 



/ 4 chars 



/in text buffer 



/convert text buffer to hex 
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mulu #100, dO 
add.w dO, block 
clr.w dO 
move.b (a0)+,d0 
sub.w #"0",d0 
mulu #10, dO 
add.w dO, block 
clr.w dO 
move.b (a0)+,d0 
sub.v #"0",d0 
add.w dO, block 
cmp.w #1759, block 
bgt blockedit 
jsr dumpblock 
bra readsec 



/compare with last block 
;new input 

;read blockand display 



blockedithex: 

move.b #"0",row 
move.b #"4",row+l 
move.b #"l",col 
move.b #"5",col+l 
jsr cursor 
jsr crsron 
lea mytext , a5 
moveq #3,d4 

retry: jsr getkey 

cmp.b #"0",key 
bit retry 
cmp.b #"f",key 
bgt retry 
cmp.b #"9", key 
ble.s hO 
cmp.b #"a",key 
bge . s hO 
bra.s retry 

hO: jsr printkey 

move.b key, (a5) + 

dbra d4, retry 

jsr crsroff 

move.b mytext, dO 

cmp.b #"9",d0 

bgt.s hi 

sub.b #"0"-"a"+10,d0 

hi: sub.b #"a"-10,d0 
lsl.b #4,d0 
move.b dO, block 
move.b mytext+1, dO 
cmp.b #"9",d0 
bgt.s h2 
sub.b #"0"-"a ,, +10,d0 

h2: sub.b #"a"-10,d0 
or.b dO, block 
move.b mytext+2,d0 
cmp.b #"9",d0 
bgt.s h3 
sub.b #"0"-"a ,, +10,d0 



; input block in hex 



;4 char 



; write in text buffer 



/convert text to hex in nibbles 
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h3: sub.b #"a"-10,d0 
lsl.b #4,d0 
move.b dO,block+l 
move.b mytext+3,d0 
cmp.b #"9",d0 
bgt.s h4 
sub.b #"0"-"a"+10,d0 

h4: sub.b #"a"-10,d0 
or.b dO,block+l 
cmp.w #1759, block 
bgt blockedithex 
jsr dumpblock 
bra readsec 

up: cmp.w #1759, block 
beq main 
add.w #1, block 
jsr dumpblock 
jmp readsec 

down: tst.w block 
beq main 
sub.w #1, block 
jsr dumpblock 
jmp readsec 



asciiedit: move.b #"a", display ;NTSC added 



/compare with last block 

/block output 
/read block and display 

/read next block and display 



/previous block read and disp. 



jsr dumpasc 
move.b #"0",row 
move.b #"6",row+l 
move.b #"0",col 
move.b #"7",col+l 
move.l buffer, buff ptr 
jsr crsron 
jsr cursor 
getasc: jsr getkey 

cmp.b #$9b,key 
bne nocurs 
jsr getkey 
cmp.b #$44, key 
beq ascleft 
cmp.b #$43, key 
beq ascright 
cmp.b #$41, key 
beq ascup 
cmp.b #$42, key 
beq ascdown 
bra.s getasc 



/ascii input in buffer 
/PAL =2 
/PA1 =3 
/PAL =0 
/PAL =7 



ascright: 



/compare with cursor sequence 

/left 
/right 
/up 
/down 

/cursor right or start of line 



cmp.b #"7", col 
bit . s csright 
cmp.b #"0",col+l 
blt.s csright 
cmp.b #"3", row 
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bit csdown 
cmp.b #"0",row+l 
bit csdown 
bra getasc 

csright:cmp.b #"9",col+l 

bne.s m3 

move.b #"0"-l,col+l 

add.b #l,col 
m3: add.b #l,col+l 

add.l #l,buffptr 

jsr cursor 

bra getasc 

csdown: cmp.b #"9",row+l 

bne.s m2 

move.b #"0"-l,row+l 

add.b #l,row 
m2: add.b #l,row+l 

move.b #"0",col 

move.b #"7",col+l 

add.l #l,buffptr 

jsr cursor 

bra getasc 

ascdown: cmp.b #"3", row 
bit rowdown 
cmp.b #"0",row+l 
bit rowdown 
bra getasc 

rowdown: cmp.b #"9",row+l 

bne.s m4 

move.b #"0"-l,row+l 

add.b #l,row 
m4: add.b #l,row+l 

add.l #$40,buffptr 

jsr cursor 

bra getasc 

ascleft:cmp.b #"0",col 
bgt.s csleft 
cmp.b #"7",col+l 
bgt.s csleft 
cmp.b #"2", row 
bgt csup 
cmp.b #"3",row+l 
bgt csup 
bra getasc 

csleft: cmp.b #"0",col+l 

bne.s m5 

move.b #"9"+l,col+l 

sub.b #l,col 
m5: sub.b #l,col+l 

sub.l #l,buffptr 



/cursor in lower left 
;set cursor 

;set buffer pointer 
;see above 



/cursor down if possible 



/buffer pointer next line 



/cursor left or end of line 



/cursor is upper left 
/set cursor 

/left buffer pointer 
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jsr cursor 
bra getasc 

csup: cmp.b #"0",row+l 
bne.s m6 

move.b #"9"+l,row+l 
sub.b #l,row 

m6: sub.b #l,row+l 
move.b #"7", col 
move.b #"0",col+l 
sub.l #l,buffptr 
jsr cursor 
bra getasc 

ascup: cmp.b #"2", row 
bgt rowup 
cmp.b #"3",row+l 
bgt rowup 
bra getasc 

rowup: cmp.b #"0",row+l 

bne.s m8 

move.b #"9"+l,row+l 

sub.b #l,row 
m8: sub.b #l,row+l 

sub.l #$40,buffptr 

jsr cursor 

bra getasc 

nocurs: cmp.b #$lb,key 
beq ascend 
cmp.b #" ",key 
bit getasc 
cmp.b # ,, z",key 
bgt getasc 

cmp.b #"7", col 
blt.s doright 
cmp.b #"0",col+l 
blt.s doright 
cmp.b #"3", row 
bit dodown 
cmp.b #"0",row+l 
bit dodown 
jsr printkey 
move.l buffptr,aO 
move.b key, (aO) 
bra asciiedit 

doright: cmp.b #"9",col+l 

bne.s mO 

move.b #"0"-l,col+l 

add.b #l,col 
mO: add.b #l,col+l 

jsr printkey 

move.l buffptr,aO 



/cursor to end of line 



/cursor up if possible 



/buffer pointer upper line 

/escape key= end input 
/mask key 



/char left or start of line 
/print 



/store in buffer 
/cursor home 
/char left print 
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move.b key, (aO) 
add.l #l,buffptr 
jsr cursor 
bra getasc 

dodown: cmp.b #"9",row+l 
bne.s ml 

move.b #"0"-l,row+l 
add.b #l,row 

ml: add.b #l,row+l 
move.b #"0",col 
move.b #"7",col+l 
jsr printkey 
move.l buffptr,aO 
move.b key, (aO) 
add.l #l,buffptr 
jsr cursor 
bra getasc 



/store in buffer 



; print char at start of line 



; store in buffer 



ascend: jsr crsroff 
; jsr dumphex 
bra main 

hexedit: move.b #"h', display 
jsr dumphex 
move.b #"0",row 
move.b #"6",row+l 
move.b #"0",col 
move.b #"7",col+l 
move.l buffer, buff ptr 
jsr crsron 
jsr cursor 

gethex: jsr getkey 

cmp.b #$9b,key 
bne noxcurs 
jsr getkey 
cmp.b #$44, key 
beq hexleft 
cmp.b #$43, key 
beq hexright 
cmp.b #$41, key 
beq hexup 
cmp.b #$42, key 
beq hexdown 
bra gethex 



;end the ascii input 
;hex output PAL only 



; added NTSC 

; added NTSC 

;hex input in buffer 

/similar to ascii input 

/except: cursor in 2 steps 

/ to enter in bytes 



hexright : 

cmp.b #"6", col 
bit . s xcsright 
cmp.b #"9",col+l 
blt.s xcsright 
cmp.b #"2", row 
bit xcsdown 
cmp.b #"l",row+l 
bit xcsdown 
bra gethex 
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xcsright : 

cmp.b #"9",col+l 

bne.s n3 

move.b #"l"-2,col+l 

add.b #l,col 
n3: add.b #2,col+l 

add.l #l,buffptr 

jsr cursor 

bra gethex 

xcsdown: cmp.b #"9",row+l 

bne.s n2 

move.b #"0"-l,row+l 

add.b #l,row 
n2: add.b #l,row+l 

move.b #"0",col 

move.b #"7",col+l 

add.l #l,buffptr 

jsr cursor 

bra gethex 

hexdown: cmp.b #"2", row 
bit rowxdown 
cmp.b #"l",row+l 
bit rowxdown 
bra gethex 



rowxdown : 



n4: 



cmp.b #"9",row+l 
bne.s n4 

move.b #"0"-l,row+l 
add.b #l,row 
add.b #l,row+l 
add.l #$20,buffptr 
jsr cursor 
bra gethex 



hexleft: cmp.b #"0",col 
bgt.s xcsleft 
cmp.b #"7",col+l 
bgt . s xcsleft 
cmp.b #"0",row 
bgt xcsup 
cmp.b #"6",row+l 
bgt xcsup 
bra gethex 

xcsleft: cmp.b #"l",col+l 

bne.s n5 

move.b #"9"+2,col+l 

sub.b #l,col 
n5: sub.b #2,col+l 

sub.l #l,buffptr 

jsr cursor 

bra gethex 
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xcsup: 



n6: 



cmp.b #"0",row+l 
bne.s n6 

move.b #"9"+l,row+l 
sub.b #l,row 
sub.b #l,row+l 
move.b #"6", col 
move.b #"9",col+l 
sub.l #l,buffptr 
jsr cursor 
bra gethex 



hexup: cmp.b #"0",row 
bgt xrowup 
cmp.b #"6",row+l 
bgt xrowup 
bra gethex 

xrowup: cmp.b #"0",row+l 

bne.s n8 

move.b #"9"+l,row+l 

sub.b #l,row 
n8: sub.b #l,row+l 

sub.l #$20,buffptr 

jsr cursor 

bra gethex 



okl: 



ble. 
cmp. 
bge. 



noxcurstcmp.b #$lb,key 
beq hexend 
cmp.b #"0",key 
bit gethex 
cmp.b #"f",key 
bgt gethex 
cmp.b #"9",key 
• s okO 
.b #"a",key 
okO 
bra gethex 
okO: jsr printkey 
ok2: move.l wdhd,dl 
move.l #key2,d2 
moveq #l,d3 
jsr Read(a6) 
.b #"0",key2 
. s ok2 

#"f',key2 
, s ok2 
.b #"9",key2 

okl 
b #"a",key2 
s ok2 



cmp. 

bit. 

cmp. 

bgt. 

cmp. 

ble. 

cmp 

bit 



move.b key,dO 
cmp.b #"9",d0 
bgt.s ok3 



/convert key and key2 into byte 
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sub.b #"0"-"a"+10,d0 
ok3: sub.b #"a"-10,d0 
lsl.b #4,d0 
move.b dO,byte 
move.b key2,d0 
cmp.b #"9", dO 
bgt.s ok4 

sub.b #"0"-"a"+10,d0 
ok4: sub.b #"a"-10,d0 
or.b dO, byte 

cmp.b #"6", col 
blt.s doxright 
cmp.b #"9",col+l 
blt.s doxright 
cmp.b #"2", row 
bit doxdown 
cmp.b #"l",row+l 
bit doxdown 
move.l wdhd,dl 
move.l #key2,d2 
moveq #l,d3 
jsr Write (a6) 
move.l buffptr,aO 
move.b byte, (aO) 
bra hexedit 

doxright : 

cmp.b #"9",col+l 

bne.s nO 

move.b #"l"-2,col+l 

add.b #l,col 
nO: add.b #2,col+l 

move.l wdhd,dl 

move.l #key2,d2 

moveq #l,d3 

jsr Write (a6) 

move.l buffptr,aO 

move.b byte, (aO) 

add.l #l,buffptr 

jsr cursor 

bra gethex 

doxdown : cmp . b #"9 ,, ,row+l 
bne.s nl 

move.b #"0"-l,row+l 
add.b #l,row 

nl: add.b #l,row+l 
move.b #"0",col 
move.b #"7",col+l 
move.l wdhd,dl 
move.l #key2,d2 
moveq #l,d3 
jsr Write <a6) 
move.l buffptr,aO 
move.b byte, (aO) 
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hexend: 



add.l #l,buffptr 
jsr cursor 
bra gethex 

jsr crsroff 
jsr dumpasc 
bra main 



;end hex input 

;ascii output PAL only 



title: 



drive : 
top: 



TEXT, VARIABLES AND TABLES 



dc 
dc 
dc 
dc 
dc 



"raw: 0/0/640/200/" ;PAL= "raw: 0/0/640/256/" 
DISK-MONITOR VERSION 1.0 
INSERT DISK TO EXAMINE IN DF" 
",0 



0,": 
$0a 



in vers 



1 . char 



normal rest 



dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
dc 
topend 
toplen 



31;43",$6d, "Esc",$9b,"0;31;40",$6d, "ape" 
31;43",$6d,"#",$9b,"0;31;40",$6d," Block" 
31;43",$6d, "$",$9b, "0;31;40",$6d, " Block" 
31;43",$6d,"+",$9b,"0;31;40",$6d," Up" 
31;43",$6d, "-",$9b, "0;31;40",$6d, " Down" 
31;43",$6d,"R",$9b,"0;31;40",$6d,"ead" 
31;43",$6d, "W",$9b,"0;31;40",$6d,"rite" 
31; 43", $6d, "C", $9b, "0/31; 40", $6d, "hecksum" 
31;43", $6d, "A",$9b, "0;31;40", $6d, "scii" 
31;43",$6d, "H",$9b, "0;31;40", $6d,"ex" 

$ Buffer # $ Checksum $" 



" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b,"0; 
" ",$9b, "0; 
" ",$9b, "0; 
" ",$9b,"0; 
$0a,$0a 
" Block # 
$0a, " 



=topend-top 



; BLOCKTYP 



boot: 

root: 

flist: 

f head : 

dat: 

udir: 

unkn: 



dc.b 


"BOOTBLOCK " 


dc.b 


"ROOTBLOCK " 


dc.b 


"FILELIST " 


dc.b 


"FILEHEADER" 


dc.b 


"DATABLOCK " 


dc.b 


"USERDIR " 




ii ii 



; DISK Error messages 

nderr: dc.b $9b, "43",$6d, "NO DISK IN DRIVE ! ", $9b, "40", $6d 

nderrend: 

ndlen=nderrend-nderr 

rderr: dc.b $9b, "43",$6d, " READ-ERROR ! ", $9b, "40", $6d 

rdend : 

rdlen=rdend-rderr 

wrerr: dc.b $9b, "43",$6d, " WRITE-ERROR ! ", $9b, "40", $6d 

wrend: 
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wrlen=wrend-wrerr 

pterr: dc.b $9b, ,, 43" / $6d, "WRITE-PROTECTION ! ", $9b, "40", $6d 

ptend: 

ptlen=ptend-pterr 

clear: dc.b " NO ERROR ! " 

clrend: 

clrlen=clrend-clear 



align 


;even 




crsrstatus: 








dew 







adr: 


dew 







mytext : 


dc 


b " 


0000" 


key: 


dc.b 







key2: 


dc.b 







display 


dc.b 







byte: 


dc.b 







align 


;even 






linebuf 


:blk.b 64 


,0 



/buffer for conversions 

/sequence for cursor positioning 

pos: dc.b $9b 
row: dc.b "00",$3b 
col: dc.b "00", $48 

;s.o. for address number dec and hex 

adrpos: dc.b $9b, "04", $3b, "29", $48 
adrpos2 :dc.b $9b, "04", $3b, "35", $48 

/sequence for cursor on/off 

con: dc.b $9b, $20, $70 
coff: dc.b $9b,$30,$20,$70 

dosname:dc.b "dos.library",0 
trkdisk:dc.b "tr ackdisk. device", 
device: dc.b 

align ;even 
dosbase:dc.l 
wdhd: del /window handle 

block: dew 880 /startblock 

offset: del /offset for read/write =512*block 

buffptr:dc.l /buffer pointer 

buffer: del /buffer start 



diskport: 




del 


;0 


del 


;4 


dew $0400 


;8 


del 


;10 



deb ;14 
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dc.b 


31 


;15 




del 





;16 


task 


LH1: del 


LH2 


;20 




LH2: del 





;24 




del 


LH1 


;28 




deb 





;32 




deb 





;33 




diskloreq: 








del 





;0 




del 





;4 




deb 


5 


;8 




deb 





;9 




del 





;10 




del 


diskport 


;14 




dew 


48 


;18 




del 





;20 




del 





;24 




dew 





;28 


IO_CMD 


dew 





;30 




del 





;32 


IO_ERROR 


del 





;36 


IO_LENGTH 


del 





;40 


IO_DATA 


del 





;44 


IO_OFFSET 


del 









del 









;The following is for 


NTSC versions o 


clrhex: deb 


$0a, " 






deb 


■■ 






deb 


$0a, " 






deb 


It 






deb 


$0a," 






deb 


11 






deb 


$0a," 






deb 


ii 






deb 


$0a," 






dc.b 


" 






dc.b 


$0a, " 






deb 


II 






dc.b 


$0a," 






deb 


II 






deb 


$0a, " 






deb 


•• 






clrhexend: 








clrhexlen = clrhexend- 


•clrhex 


end 
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Appendix B 

The Drive Accelerator 



Most users have been annoyed by the slow access time of the Amiga 
disk drives. This is caused partly by a complex and therefore slow 
system, and partly by the complicated routines of the Trackdisk device. 

The main reason for slow loading is in the basic principle of the Amiga 
operating system: everything should be easy to expand. 

To satisfy this principle, the Load command is first sent from DOS to 
the Filesystem. Here the command must first be recognized and then 
transmitted to the Trackdisk device. 

The desired tracks are read from disk into memory and the data passed to 
me Filesystem with the help of the blitter. Some of these are temporar- 
ily stored and the data is passed to DOS which pushes it to the final 
location in memory. Because of the frequent passing of commands and 
data to other parts of the system, much time is lost Without reorganiz- 
ing the system completely, there is no way to speed this process. 

Another possibility, however, is to accelerate the Trackdisk device since 
it controls the reading of a track in a very complicated manner. The 
accelerator presented here uses this method. 

To use the disk accelerator described in this book, the present system 
and its weaknesses must first be explained. 

The Filesystem sends a read command to the Trackdisk device. The 
Filesystem decides what should be read. As soon as the command (read 
disk block into a certain buffer) is passed to the Trackdisk device (more 
exactly the Trackdisk task), it starts to work. 

The command is tested for its legality and at the same time a jump is 
performed to the proper routine for further processing. Now a test is 
made to determine if the track, whose block is needed, is already in 
memory. If this is the case, the block is decoded by the blitter (from 
MFM format to normal code) and copied into the buffer desired by the 
Filesystem. 

If the track was not already in memory, it must be loaded. The loading 
of a track has been implemented in a very complicated and not very 
elegant manner. 

A track contains, including track gaps, about $3100 bytes, depending 
on the drive in use. To insure that the Trackdisk device has read the 
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entire track, $397C bytes are loaded. For some unknown reason there is 
no wait for die sync mark during reading. The reading is unsynchro- 
nized. For this reason the sync mark must be found "by hand", which is 
not simple. First it must discover if the first bit read was a track or data 
bit. After finding the mark, die data, with the sync marking at die front, 
are copied properly and checked for read errors. Only after the data has 
been verified is the block decoded and moved to the buffer. Then the 
Filesystem continues its work. 

Using the The first problem when modifying the operating system is how to 

accelerator insert a user routine into the system. The easiest possibility is to set 

die return jump address of the Trackdisk task to the user task, which is 
similar to it, including the load routines. After this has been done, a 
branch occurs not to ROM, but to the user routine, every time an 
operation is performed on die disk. 

In the user task, just as in the system, the commands are tested for 
legality. If it is not a command to read a block, a jump is performed to 
the operating system. This must occur through direct addresses. This is 
also why the accelerator only runs with Kickstart Version 33.192 (of 
the Amiga 500 and 2000). In other versions, the absolute addresses are 
different 

If the display blinks after starting, the accelerator is working. If not, 
there is either a wrong Kickstart version or not enough memory could 
be made available. 

When the command to read is passed, the program runs in the user 
routines which are completely different from die operating system. 

To prevent reading substantially more data than one track length, the 
header of the first block found is read. During the read a wait occurs for 
the sync mark. On the basis of the data read, it can be recognized where 
the track gap is located and how many bytes can be found in front and 
behind it. It takes little time to find this information and the following 
block can be read direcdy. 

After the number of bytes to the gap has been discovered, they can be 
read after finding the sync mark. After the gap there must be another 
wait for the "Sync", after which the rest of the data is read. It is 
therefore no longer necessary to read $397CK, only the actual track 
length in addition to the block read for orientation. This of course 
increases the speed. In addition, the data does not have to be corrected by 
copying as in die operating system, because a wait occurred for the sync 
mark. 

The data is read from the disk direcdy to memory through DMA (Direct 
Memory Access), without the use of die processor. You can therefore 
have the processor decode the data and check for errors during the same 
time the data is read from disk. With this system the assignments 
normally performed sequentially are performed simultaneously. 
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When the Filesystem requests a block whose track is already in the 
memory of the Trackdisk device, it doesn't have to be decoded first by 
the operating system. It can be copied to the desired location immediate- 
ly by the Witter (the decoding was done during the reading). 

To achieve an even more acceleration, the speed at which the head is 
moved across the disk is increased. Also the wait time for the device, 
after positioning the head to the desired location, is set to almost zero. 
This is very noticeable in loading times. 

Altogether the routines of the Trackdisk device which are responsible 
for the reading of a track, have been accelerated to the maximum. 

As mentioned earlier, most of the time for reading a file is not used by 
the Trackdisk device, but the complicated system which, for reasons of 
compatibility, cannot be changed. The accelerator described here is an 
improvement, and is about as much as is possible through the enhance- 
ment of the Trackdisk devices. 

The source listing for the accelerator follows. It is also contained on the 
optional disk for this book. This program was assembled with the 
AssemPro asembler from Abacus. 
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/Listing of floppy accelerator program 

; speeder . s 

;from the Abacus book 

; Amiga Disk Drives Inside and Out 

; Assembled using the AssemPro Assembler 



DeviceList 


EQU 


350 


TrackTask 


EQU 


302 


TrackPort 


EQU 


36 


SPReg 


EQU 


54 


ReplyAddress 


EQU 


70 


IDNestCnt 


EQU 


294 


PortStatus 


EQU 


34 


CMD_READ 


EQU 


2 


FindName 


EQU 


-276 


Wait 


EQU 


-318 


AllocMem 


EQU 


-198 


FreeMem 


EQU 


-210 


Reql 


EQU 


$01 


Req2 


EQU 


$03 


TrackSize 


EQU 


$1604 


Track 






ReadError 


EQU 


21 


NoDisk 


EQU 


29 


NoSync 


EQU 


21 



;MEMF_PUBLIC 

/Number of Bytes in one 



lea $fc0000,a0 

cmp.l #$2033332E,$lc(a0) 

bne \DError4 

cmp.l #$31393220, $20(a0) 

bne \DError4 

move.l $4,a6 

bsr Disable 

move.l #Ende-Startl,d0 

move.l #Reql,dl 

jsr AllocMem(a6) 

move.l d0,al 

move.l al,a4 

move.l d0,d4 

beq \DErrorl 

lea TrackName (pc) ,al 

lea DeviceList (a6) ,a0 

jsr FindName <a6) 

tst.l dO 

beq \DError3 

move.l d0,a5 



/Save memory address 



\13: 



lea MyTask (pc) , aO 

lea Start 1 (pc) ,al 

suba.l al,a0 

adda.l a0,a4 

clr.l d3 

move.l TrackPort (a5,d3) ,d0 

beq \15 



/Address of MyTask 
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Ul: 



U5: 



move.l d0,a3 

move.l #TrackSize,dO 

move.l #Req2,dl 

jsr AllocMem(a6) 

lea TrackMemoryl (pc) , aO 

lea (a0,d3),a0 

move.l dO, (aO) 

beq \DError2 

btst #0,PortStatus(a3) 

bne \11 

move.l #1800,$2c(a3) 

move.l #l,$30(a3) 

lea TrackTask+SPReg (a3) , a2 

move.l (a2),al 

move.l a4, Reply Address (al) 

addq.l #4,d3 

cmpi.w #16, d3 

bcs \13 



; Track Memory for Disk 



;wait, until Task in Wait 

/accelerate Step motor 
;no wait after Posi. 



\14: 

\DErrorl: 
\DError4: 
\DError2 : 



\DError3: 



move.l #Ende-Startl,dO 
lea Startl (pc) , aO 
move.l d4,al 
move.b <a0)+, (al) + 
subq.l #l,dO 
bne \14 
bsr blink 

bsr Enable 

clr.l dO 

rts 

subq.l #4,d3 

bcs \DError3 

lea TrackMemoryl (pc) , aO 

lea (a0,d3),a0 

move.l (aO),al 

move.l #TrackSize,dO 

jsr FreeMem(a6) 

bra \DError2 

move.l #Ende-Startl,dO 

move.l a4,al 

jsr FreeMem(a6) 

bra \DErrorl 



/Copy data 



Blink: 
Ul: 



move.l D0,-(a7) 

move.l #$20000, dO 

move.w d0,$dffl80 

sub.l #l,d0 

bne \11 

move.l (a7)+,D0 

rts 



Startl: 
Disable : 



move.w #$4000, $dff 09a 
move.l a6,-(a7) 
move.l $4,a6 
add.b #l,IDNestCnt(a6) 
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Enable: 



\11: 



move.l (a7)+,a6 

rts 

move.l a6,-(a7) 

move.l $4,a6 

sub.b #l,IDNestCnt(a6) 

bge \11 

move.w #$c000,$dff09a 

move.l <a7)+,a6 

rts 



TheTask : 

LFEAE64 : 

My Task: 
LFEAE7A: 
LFEAE84 : 



LFEAEBA : 



MOVEA.L 8(A7),A6 
MOVEA.L 4(A7),A3 
LEA $12E(A3),A0 
MOVE.L A0,$10(A3) 
JSR $FE9960 
BSR.S LFEAE7A 
MOVE.L #$300, DO 
MOVE.L A6,-(A7) 
MOVEA.L $34(A6),A6 
JSR Wait(A6) 
MOVEA.L (A7)+,A6 
BRA.S LFEAE64 
BSET #0,$22(A3) 
BNE NoMessage 
MOVEA.L A3,A0 
MOVE.L A6,-(A7) 
MOVEA.L $34(A6),A6 
JSR -$174 (A6) 
MOVEA.L (A7)+,A6 
TST.L DO 
BEQ LFEAF3E 
MOVEA.L D0,A2 
BCLR #3, $40 (A3) 
BEQ LFEAF1E 
MOVEA.L $52(A3),A0 
BCLR #0,2(A0) 
BEQ LFEAEBA 
MOVE.L A0,$4E(A3) 
JSR $FEA958 
MOVEA.L $52(A3),A0 
MOVEQ #-l,D0 
MOVE.W D0,0(A0) 
MOVE.W D0,$4C(A3) 
MOVEQ #O,D0 
JSR $FEA4 62 
MOVEA.L A6,A0 
MOVEA.L $34(A0),A6 
ADDQ.B #1,$127(A6) 
MOVEA.L A0,A6 
TST.W $24 (A3) 
BNE LFEAF12 
MOVEQ #0,D0 
MOVE.B $43 (A3), DO 
MOVE.L A6,-(A7) 
MOVEA.L $3C(A6),A6 
JSR -$C(A6) 
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LFEAF12 : 



LFEAF1E: 



LFEAF30: 

LFEAF3E : 

NoMessage: 

Stepperl: 



LFEA052 : 



LoadEnde : 
LFEA066: 



MOVEA.L (A7)+,A6 
LEA $24 (A6) ,A0 
MOVEQ #0,D0 
MOVE.B $43<A3),D0 
LSL.L #2, DO 
ADDA.L D0,A0 
CLR.L (AO) 
SOBA.L A1,A1 
MOVE.L A6,-<A7) 
MOVEA.L $34(A6),A6 
JSR -$120 (A6) 
MOVEA.L (A7)+,A6 
MOVE.L A6,-(A7) 
MOVEA.L $34(A6),A6 
JSR -$8A(A6) 
MOVEA.L (A7)+,A6 
MOVEA.L A2,A1 
LEA $86 (A3) ,A0 
CMPA.L A0,A2 
BNE.S LFEAF30 
JSR $FE9960 
BRA LFEAE84 
BSET #1,$22(A3) 
bsr Stepperl 
BRA LFEAE84 
BCLR #1,$22(A3) 
BCLR #0,$22(A3) 
RTS 

MOVE.L A2,-(A7) 
MOVEA.L A1,A2 
ANDI.B #-6, $40 (A3) 
jsr $FE998C 
MOVEA.L A2,A1 
MOVE.W $1C(A2),D0 
cmp.b #CMD_READ,dO 
beq Stepper2 
BTST #$F,D0 
BEQ.S LFEA052 
BSET #2, $40 (A3) 
MOVE.L $126<A3),D1 
CMP.L $30(A2),D1 
BLS.S LFEA052 
MOVE.B #$1D,$1F(A2) 
JSR $FEA1B0 
BRA.S LFEA066 
MOVEQ #0,D1 
MOVE.B D0,D1 
LSL.W #2,D1 
LEA $FEA300,A0 
MOVEA.L 0(A0,D1.W),A0 
JSR (AO) 

JSR $FE998C 
MOVEA.L (A7)+,A2 
RTS 
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Stepper2 : 



bsr Blink 
bsr Stepper3 
bra LoadEnde 



Stepper3 : 



LFEA78E: 



LFEA7A0: 



LFEA7B8: 



LFEA7D4 : 



MOVEM.L A2-A4,-(A7) 
MOVEA.L $18(A1),A3 
MOVE A. L A1,A2 
MOVE.L A2,$44(A3) 
MOVE.L #0,$20(A2) 
MOVE.L $28(A2),$56(A3) 
MOVE.L $2C(A2),D0 
JSR $FEA182 
TST.L DO 
BMI LFEA92A 
MOVE.W D0,$4A(A3) 
MOVE.B D1,$49(A3) 
MOVE.L $2C(A2),D0 
ADD.L $24(A2),D0 
JSR $FEA182 
TST.L DO 
BMI LFEA92A 
BTST #2,$40<A3) 
BEQ.S LFEA78E 
MOVE.L $34(A2),$5A(A3) 
BEQ.S LFEA78E 
BSET #0,$40(A3) 
BTST #1,$40(A3) 
BEQ.S LFEA7A0 
MOVE.B #$1D,$1F(A2) 
BRA LFEA920 
MOVE.W $4A(A3),D0 
JSR $FEA93C 
MOVE.L A0,$4E(A3) 
BNE.S LFEA804 
jsr $FEA952 
MOVEA.L A0,A2 
MOVE.L A2,$4E(A3) 
BTST #0,2(A2) 
BEQ.S LFEA7D4 
JSR $FEA958 
TST.L DO 
BEQ.S LFEA7D4 
MOVEA.L $44(A3),A1 
MOVE.B D0,$1F(A1) 
BRA LFEA920 
MOVE.W $4A(A3),0(A2) 
BCLR #0,2(A2) 
CLR.B $42 (A3) 
bsr readl 
MOVE.B 3<A2),D0 
CMPI.B #$B,D0 
BCS.S LFEA804 
MOVE.W #-l,0(A2) 
MOVEA.L $44(A3),A1 



; Track in buffer 
;No, read one 



/read track into buffer 
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LFEA804: 



LFEA82E: 



LFEA8 66: 



LFEA890: 



LFEA8A0: 



LFEA8C4 : 



MOVE.B D0,$1F(A1) 
BRA LFEA920 
MOVEA.L $4 4<A3),A2 
MOVE.W $1C(A2) ,D0 
MOVEA.L $4E(A3),A0 
CMPI.B #3, DO 
BNE LFEA890 
BSET #0,2 (AO) 
MOVEQ #0,D0 
MOVE.B $49(A3) ,D0 
SUB.B 3(A0),D0 
BPL.S LFEA82E 
ADDI.B #$B,D0 
MULU #$440, DO 
LEA $680(A0),A4 
ADDA.L D0,A4 
BTST #0,$40(A3) 
BEQ.S LFEA866 
MOVEA.L $5A(A3),A0 
MOVE.L #$10, DO 
LEA $10(A4),A1 
JSR $FEAB4A 
LEA 8 (A4 ) , AO 
MOVE.W #$28, Dl 
JSR $FEADA4 
LEA $30 (A4) ,A0 
JSR $FEAD4 6 
MOVEA.L $56(A3),A0 
MOVE.L #$200, DO 
LEA $40(A4),A1 
JSR $FEAB4A 
LEA $40(A4),A0 
MOVE.W #$400, Dl 
JSR $FEADA4 
LEA $38(A4),A0 
JSR $FEAD4 6 
BRA LFEA8D6 
MOVEQ #0,D0 
BTST #0,$40(A3) 
BEQ.S LFEA8C4 
MOVE.B $4 9 (A3), DO 
SUB.B 3(A0),D0 
BPL.S LFEA8A0 
ADDI.B #$B,D0 
MDLO #$440, DO 
LEA $680(A0),A4 
ADDA.L D0,A4 
LEA $10(A4),A1 
MOVEA.L $5A(A3),A0 
MOVE.L #$10, DO 
JSR $FEACB2 

clr.l dO 

MOVE.B $4 9 (A3) ,D0 

MOVEA.L $56(A3),A1 

lea TrackMemoryl (pc) , aO 



;SecLabel set? 

;no 

; Sector number to DO 



; Sector number to DO 
/destination address 
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LFEA8D6: 



LFEA8FA: 



LFEA920: 

LFEA92A: 

LFEA936: 
readl : 

LFEA9AC : 
LFEA9B6: 



\Error : 



clr.l dl 

move.b $43 (a3) ,dl 

lsl.w #2,dl 

adda.l dl,aO 

movea.l (aO),aO 

mulu #$200, dO 

adda.l d0,a0 

move.w #$200, dO 

bsr CopyBlock 

MOVE.L #$200, Dl 

ADD.L D1,$56(A3) 

MOVE.L $20(A2),D0 

ADD.L D1,D0 

MOVE.L D0,$20(A2) 

BTST #0,$40(A3> 

BEQ.S LFEA8FA 

ADDI.L #$10,$5A(A3) 

CMP.L $24<A2),D0 

BCC.S LFEA920 

MOVEA.L $4E(A3),A2 

ADDQ.B #1,$49(A3) 

CMPI.B #$B,$4 9(A3) 

BLT LFEA804 

MOVE.B #0,$49(A3) 

ADDQ.W #1,$4A(A3) 

BRA LFEA7B8 

MOVEA.L $44(A3),A1 

JSR $FEA1B0 

BRA.S LFEA936 

MOVEA.L $44(A3),A1 

MOVE.B #-4,$lF(Al) 

BRA.S LFEA920 

MOVEM.L (A7)+,A2-A4 

RTS 

MOVEM.L A2,-(A7) 

MOVEA.L $4E(A3),A2 

MOVEQ #1,D0 

jsr $FEA4 62 

MOVEQ #0,D0 

MOVE.W $4A(A3),D0 

jsr $FEA3DA 

LEA 1664(A2),A0 

lea TrackMemoryl (pc) , al 

clr.l dO 

move.b $43 (a3) ,d0 

lsl.w #2,d0 

adda.l d0,al 

move.l (al),al 

bsr trackreadl 

raove.w FirstBlock (pc) , DO 

MOVE.B dO,3(A2) 

lea ErrorFlag (pc) ,a0 

tst.w (aO) 

beq \Ende 

MOVE.B l(aO),3(A2) 

ADDQ.B #1,$42(A3) 



; Motor on 



;Head Posi. 



;No Error 
; Store error 
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\Ende: 



MOVE.B $42 (A3), DO 
CMP.B $34 (A3), DO 
BGT.S \Ende 
ANDI.B #3, DO 
BNE.S LFEA9B6 
MOVE.W #-l,$4C(A3) 
BRA.S LFEA9AC 
MOVEM.L (A7)+,A2 
RTS 



;End too many errors 



; Track read and decoder 

/>= Al = Pointer to buffer for decoded data 

;>= AO = Pointer to buffer for coded data 



Trackreadl : 



\FL3: 



\FL8: 



MOVEM.L D2-D4/a4-a5,-(A7) 

move.l a0,a5 

move.l al,a4 

lea ErrorFlag(pc) ,al 

clr.w (al) 

lea DecodeNum(pc) ,al 

move.w #$080, (al) 

lea $40(a5) ,a0 

lea DecodeAdr (pc) , al 

move.l aO, (al) 

adda.l #$400, aO 

lea FTestAdr (pc) , al 

move.l aO, (al) 

jsr $FEADDC 

MOVE.B $41(A3),$BFD100 

BTST #2,$BFE001 

BNE.S \FL3 

lea ErrorFlag (pc) ,al 

move.w #NoDisk, (al) 

BRA \FL5 

bsr Disable 

move.l a6,-(a7) 

MOVEA.L A5,A6 

move.l #$aaaaaaaa, (a6) + 

move.w #$4489, (a6) + 

bsr search 

tst.l dO 

bpl \FL8 

lea ErrorFlag (pc) ,al 

move.w #NoSync, (al) 

bra \FL9 

bsr FErase 

clr.l d2 

move.w BytesBefGap(pc) ,d2 

tst.l d2 

beq \FL1 

lea BlockAdr (pc) ,al 

clr.w (al) 

bsr Numreadl 

clr.l dO 



/Number long words to decode 



;Data area for 1. Blocks 



/Address of next Block 
/Check drive 

/Disk in drive 
;Ok 

/No disk in drive 
/ Ende 



/Track buffer 
/store first Sync 



/No Sync 

/End 

/Prepare track buffer 

/Num. of Bytes before Gap 

/No Bytes before Gap 

/Offset im Block 
/Bytes read 
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\FL1: 



\FL2: 



\FL9: 
\FL5: 



/Pointer to next buffer 



raove.w Byte sBef Gap ( pc ) ,d0 

move.l a5,a6 

adda.l d0,a6 

move.l #$aaaaaaaa, (a6) + 

move.w #$4489, (a6)+ ;store first sync 

move.w BytesAf tGap (pc) , d2 

tst.X d2 

beq \FL2 

lea BlockAdr (pc) ,al 

clr.w (al) 

bsr Numreadl 

bsr lastoneblock 

move.l #$aaaaaaaa,$2ec0(a5) ;Creat gap after data 



BTST #2,$BFE001 

bne \FL9 

lea ErrorFlag(pc) ,al 

move.w #NoDisk, (al) 

move.l (a7)+,a6 

bsr Enable 

jsr $FEAE42 

MOVEM.L (A7)+,D2-D4/a4-a5 

RTS 



;Disk in drive? 
;Ok, Disk in Drive 



;drop drive 



/Prepare track buffer (clrear block start) 
/>= A5 = Pointer to track buffer 



FErase: 



\L1: 



\L2: 



move.l a5,a0 

move.w #10, dl 

clr.l dO 

move.l d0,$440(a0) 

adda.l #$4 4 0, aO 

dbf dl,\Ll 

lea BlockReportl (pc) , aO 

move.w #10, dl 

clr.w (a0)+ 

dbf dl,\L2 

rts 



/Read set number of bytes 

;>= A6 = Pointer to destination 

/>= D2 = Number of bytes to read 



Numreadl : 



bsr install 

MOVE.W D2,D0 

LSR.W #1,D0 

ORI.W #$8000, DO 

add.w #l,d0 

MOVE.W D0,36(A1) 

MOVE.W D0,36(A1) 

bsr decode 

LEA $DFF000,A1 

MOVE.W #$4000, $24 (Al) 

rts 



/Prepare to read 
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;>= A6 Pointer to track buffer 



install: 



LEA $DFF000,A1 
move.w #$4000, $24 (al) 
move.w #$8400,$9e(al) 
move.w #$4489,$7e(al) 
MOVE.L A6,$20(A1) 
move.w #$0002, $dff 09c 
rts 



;set Disk-Len back 
/switch on Disk Sync 
; SYNC-Mark 
;pass buffer 



;Code long word and enter into buffer 

;>= DO = Long word 

;>= A0 = Pointer to buffer 



CodeLWort : 


MOVEM.L D2-D3,-(A7) 




MOVE.L D0,D3 




LSR.L #1,D0 




BSR \CH1 




MOVE.L D3,D0 




BSR \CH1 




BSR Randsetone 




MOVEM.L (A7)+,D2-D3 




RTS 


\CH1: 


ANDI.L #$55555555, DO 




MOVE.L D0,D2 




EORI.L #$55555555, D2 




MOVE.L D2,D1 




LSL.L #1,D2 




LSR.L #1,D1 




BSET #$1F,D1 




AND.L D2,D1 




OR.L D1,D0 




BTST #0,-1 (A0) 




BEQ.S \CH2 




BCLR #$1F,D0 


\CH2: 


MOVE.L DO, (A0) + 




RTS 


; set border 




Randsetone: 


MOVE.B (A0),D0 




BTST #0,-1 (A0) 




BNE.S \CH4 




BTST #6, DO 




BNE.S \CH6 




BSET #7, DO 




BRA.S \CH5 


\CH4: 


BCLR #7, DO 


\CH5: 


MOVE.B DO, (A0) 


\CH6: 


RTS 



/determine checksum 

;>= Dl = Number of Bytes (must be divisible by 4) 

;>= A0 = Pointer to buffer 

;=> DO = Check sum 



Checksum: 



MOVE.L D2,-(A7) 
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\PS1: 



LSR.W #2,D1 
SOBQ.W #1,D1 
MOVEQ #0,D0 
MOVE.L (A0)+,D2 
EOR.L D2,D0 
DBRA D1,\PS1 
ANDI.L #$55555555, DO 
MOVE.L (A7)+,D2 
RTS 



/Decode block header 

;>= AO is pointer to header 

/=> DO = Header 



Header : 



move.l (aO)+,DO 
move.l (aO)+,Dl 
andi.l #$55555555, dO 
andi.l #$55555555, dl 
lsl.l #1,D0 
or.l D1,D0 
rts 



/find first block 

;=> A6 = Pointer to track buffer 

;=> DO = Null: Block found 

;=> BytesBefGap = Number of Bytes before the Gap 

;=> BytesAftGap = Number of Bytes after the Gap 



search: 



\S01: 



movem.l d2-d4/a2,-(a7) 
move.w #11, d2 
bsr install 
move.w #$8024, dO 
MOVE.W D0,$dff024 
MOVE.W D0,$dff024 
bsr Blockready 
tst.l dO 
bmi \SUError 



/Number of errors permitted 



;$24 Words read 



;wait for ready Block 
/Error, then DO = -1 



lea 8 (a5) ,a0 
moveq #$28, dl 
bsr Checksum 
move.l d0,d3 
lea 48 (a5) , aO 
bsr Header 
cmp.l d0,d3 
bne \SUNeu 
lea 8 (a5) ,a0 
bsr Header 
move.w d0,d3 
lsr.w #8,d3 
andi.w #$00ff,d3 
addi.w #l,d3 
cmp.w #$000a,d3 
bis \S02 
clr.w d3 



/Pointer to Blockheader 

/number of long words 

/Sum for Header 

/Sum stored 

/ *Sum 

/get sum from Header 

/ compare sums 



/Header decode 
/Header to D3 

/isolate sector number 
/incr. sector number 
/Nummer > 10? 
/No, OK 
/Number = 
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\SU2: 



\SUNeu: 
\SUok: 



lea SectNum <pc) , a2 
move.w d3, (a2) 
lea FirstBlock(pc) ,a2 
move.w d3, (a2) 

move.w d0,d3 
andi.w #$ff,d3 
cmp.b #$0c,d3 
bcs.s \SOok 
dbf d2,\SUl 
bra \SUError 



/Store number 

/Number of first block 

; Header 

/Sectors to gap 
/Header OK? 



\SOError: 
\SUEnd: 
Blockready: 
\B1: 



\B2: 



sub.w #l,d3 

move.w d3,d2 

move.w #$000b,d4 

sub.b d2,d4 

mulu #$440, d3 

mulu #$440, d4 

clr.l dO 

lea BytesBefGap(pc) ,a2 

move.w d3, <a2) 

lea BytesAftGap(pc) ,a2 

move.w d4, (a2) 

lea SectBL(pc) ,a2 

move.w #$0b, (a2) 

bra \SUEnd 

move.l #-l,d0 

lea ErrorFlag(pc) ,a2 

move.w #ReadError, (a2) 

movem.l (a7)+,d2-d4/a2 

rts 

clr.l dO 

move.l #$20000, dl 

move.w #$0002, $dff 09c 

MOVE.W $DFF01E,D0 

BTST #1,D0 

bne.s \B2 

sub.l #l,dl 

bne \B1 

move.l #-l,d0 

RTS 



/Num. of blocks to gap 



/Num. of blocks after gap 
/Num. of bytes to gap 
/Num. of bytes to gap 



/Sectors before gap to load 



/Error-Flag cleared 
/Disklnt cleared 



/Error occoured 



/decode bytes, unitl block ead 



decode : 



movem.l d2-d4/a2-a3,-(a7) 

clr.l d3 

move.l a3,d4 

move.w BlockAdr (pc) ,d3 

move . 1 FTestAdr <pc) , aO 

move . 1 DecodeAdr (pc) , a2 
move.w DecodeNum(pc) ,d2 



/save drive-prot 
/Offset in Block 
/Address to test if 
/Block already loaded 
/Address, decode is done 
/Number for decoding 
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\DC1: 



\DC2: 



\DC3: 
\DCEnd: 



MOVE.W $DFF01E,D0 
BTST #1,D0 
bne \DCEnd 
tst.l (aO) 
beq \DC1 

movent. 1 a0-al,-(a7) 
lea -$40<a2),al 
move.l d4,a3 
bsr BlockCheck 
movent. 1 (a7)+,a0-al 
move . w SectNum (pc) , dO 
mulu #$200, dO 
move . 1 a 4 , al 
add.l d0,al 



MOVE 


,W $DFF01E,D0 


BTST 


#1,D0 


bne.s \DCEnd 


move. 


.1 (a2),D0 


move. 


.1 $200(a2),Dl 


adda. 


,1 #4,a2 


andi. 


.1 #$55555555, dO 


andi, 


.1 #$55555555, dl 


lsl.l #1,D0 



;Area read already 

;Yes, end 

; TestAdr 

;Walt, until block read 

; save registern 
;* Block Start 
; * Drive-Port 
; Block check 
/restore Register 



/Basic address for dest. data 
/Address of the Blocks 



/area already read 



or.l D1,D0 
move.l dO, (al,d3) 
addq.w #4,d3 
subq.w #1,D2 
bne \DC2 
adda.l #$240, a2 
adda.l #$440, aO 
move.l #$080, D2 
clr.w d3 

lea SectNum (pc) , a3 
add.w #1, (a3) 
cmp.w #$0b, (a3) 
bcs \DC3 
clr.w (a3) 
bra \DC1 



/store long word 

/Decode number 

/incr. Address 
/ TestAdr 
/Decode number 
/Offset to Null 

/incr. Sector number 
/Nummer > 10? 
/No, OK 
/Number = 



lea BlockAdr (pc) ,a3 

move.w d3, (a3) 

lea DecodeAdr (pc) , a3 

move.l a2, (a3) 

lea FTestAdr(pc) ,a3 

move.l aO, (a3) 

lea DecodeNum(pc) ,a3 

move.w D2, (a3) 

movem.l (a7)+,d2-d4/a2-a3 
RTS 
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; decode last block 



lastoneblock : 



movem.l d2-d3/a2,-(a7) 



\LB1: 



move . w SectNum (pc) , dO 

mulu #$200, dO 

move .1 a4 , al 

add.l d0,al 

clr.l d3 

move . 1 DecodeAdr (pc) , a2 

move.w DecodeNum(pc) ,d2 

move.l (a2),D0 

move.l $200 (a2) ,D1 

adda.l #4,a2 

andi.l #$55555555,d0 

andi.l #$55555555, dl 

lsl.l #1,D0 

or.l D1,D0 

move.l dO, <al,d3) 

addq.w #$4,d3 

subq.w #1,D2 

bne \LB1 

movem.l (a7) +,d2-d3/a2 



; Basic addres for dest. data 
/Address of the blocks 



/Decode number 



RTS 

/test Block for Errors 

/Al = Pointer to BlockStart 



BlockCheck: 



movem.l d2-d3/a2,-(a7) 

clr.l d3 

move.w SectNum (pc) ,d3 

lsl.w #l,d3 

lea BlockReportl (pc) ,a0 

move.w (a0,d3),d0 

tst.w dO 

bne \CBEnd2 



/Sector number => Offset 

/get entry 
/already tested? 
/Yes, end 



lea 64 (al) , aO 
move.w #$400, dl 
bsr Checksum 
move.l d0,d2 
lea 56 (al) ,a0 
bsr Header 
cmp.l d0,d2 
bne \DataIsFalse 



/Sum for Data block 
/save sum 

/Pointer to Data sum 
/Sum decoder 



lea 8(al) ,a0 

bsr Header 

move.w d0,d2 

lsr.w #8,d2 

cmp.b SectNum+1 (pc) ,d2 

bne \FalseoneSector 

swap dO 



/Header decode 
/store lowere word 
/Sector number to d2 
/rright Sector 

/Track number to DO 
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cmp.b 77 (a3) ,d0 

bne \FalseoneTrack 

andi.l #$ffOO,dO 

cmp.w #$ff00,d0 

bne \KeinDosTrack 

lea 8(al) ,a0 

moveq #$28, dl 

bsr Checksum 

move.l d0,d2 

lea 48(al),a0 

bsr Header 

cmp.l d0,d2 

bne \HeaderlFalse 

move.w #$ffff,dO 
\CBEndl : lea BlockReportl (pc) , aO 

move.w dO, (a0,d3) 

btst #0,-1 (al) 

beq \CB1 

move.l #$2aaaaaaa, (al) 

bra \CB2 
\CB1: move.l #$aaaaaaaa, (al) 

\CB2: move.l #$44894489,4 (al) 

move.w #$ff00,d0 

move.b 77 (a3) ,d0 

swap dO 

move.b SectNum+1 (pc) ,d0 

lsl.w #8,d0 

move.b SectBL+1 (pc) ,d0 

lea 8(al) ,a0 

bsr CodeLWort 

lea 8 (al) ,a0 

moveq #$28, dl 

bsr Checksum 

lea 48(al),a0 

bsr CodeLWort 

lea SectBL(pc) ,a2 

subq.w #1, (a2) 
\CBEnd2: movem.l (a7)+,d2-d3/a2 

rts 



/right Track? 



;long word number 

;Sum for Header 

;save sum 

;*Sum 

;get sum from Header 

/compare sum 



/create new Header 



/store Header 

/long word number 
/Sum for Header 
/*Sum 
/Checksum stored 



\FalseoneSector : 

\FalseoneTrack : 

\KeinDosTrack: 

\Header lFalse : 

\DataIsFalse: 
\Flagsetone: 



move.w #$0017, dO 

bra \Flagsetone 
move.w #$0017, dO 

bra \Flagsetone 
move.w #$0017, dO 

bra \Flagsetone 
move.w #$001b,d0 

bra \Flagsetone 
move.w #$0019, dO 
lea ErrorFlag (pc) , 
move.w dO, (a2) 
bra \CBEndl 



a2 



/Data bock coded 

/>= DO = Length of source 

/>= A0 = Pointer to Source 
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;>= Al = Pointer to Dest. 



CopyBlock : 



move.l a2,-(a7) 
move.l a0,a2 
LSL.W #2, DO 
ORI.W #8, DO 
lea $dff000,a0 
bsr BlitWait 
bsr BlitterCode 
move.l (a7)+,a2 
RTS 



;A0 = $dff000 

;D0 = Length of source 

;D1 = Source 

;A5 = Dest 



BlitterCode : 



bsr Modulu 
MOVE.L a2,$50<A0) 
MOVE.L al,$54<A0) 
MOVE.W #$09F0,$40(A0) 
MOVE.W #0,$42<A0) 
bsr StartBlit 
rts 



/set Modulu 

/Source 

/Dest 



/Blit start and wait for end of Blitter 



StartBlit: 
BlitWait : 



MOVE.W d0,$dff058 
btst #14,$dff002 
bne.s BlitWait 
rts 



/Modulu for coding set 
/>= AO = $dff000 
Modulu : 



movem.l d0/al,-(a7) 
MOVEQ #0,D0 
LEA $44(A0),A1 
MOVE.L #-1, <A1) 
LEA $62(A0),A1 
MOVE.L DO, (Al)+ 
MOVE.W DO, (Al) + 
movem.l (a7)+,d0/al 
rts 



BytesBefGap: 


dew 





BytesAftGap: 


dew 





ErrorFlag: 


dew 





DecodeNum: 


dew 





DecodeAdr: 


del 





FTestAdr : 


del 
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BlockAdr: dew 

SectNum: dew 

FirstBlock: dew 

SectBL: dew 

TrackMemoryltdel 
TrackMemory2:del 
TrackMemory3 : de 1 
TrackMemory4 : de 1 

BlockReportl: ds.w 11 

TrackName: deb ' trackdisk. device" , 0,0 

Ende: 

END 
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Appendix C 

The Deepcopy program 



In a copy program, the quality of the copy is more important than the 
screen display. Many copy program manufacturers tend to forget this 
fact. This program is not very attractive, but it is. fast and accurate! 



Program options 
Fl- = Start Copy 



This option starts the copying process. Set all parameters before 
starting. The <Esc> key can be used to terminate this option. 



F2 = First Cylinder - F3 = Last cylinder 



This option sets the numbers of the starting and ending cylinder to be 
copied. You can select this option using the cursor keys. 



F4 = How many tries 



This sets the number of write attempts until a verify error is output. 
This option is important, since not every write error is an actual defect 
on the disk. You can write the disk without errors if you wish. You can 
select this number using the cursor keys. 



FS = Write several times 



This is useful if only one drive is available and several copies of one 
disk are needed. The program stores the data read in RAM until no more 
memory can be found, and then writes the data to the target disk. After 
the data has been written to the target disk, you can insert another target 
disk for writing the same information. The program doesn't need to re- 
read the source disk, since the information already exists in memory. 



F6 = Verify Destination 



F7 = Fastcopy 



This option should be used if data security is important. The data 
written is compared with the data read from the source disk. If an error 
appears during the comparison, the program attempts to rewrite the 
track. 



The option copies disks which are not copy protected. With this option 
several target drives can be accessed, but it cannot be used with a single 
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drive. There are copy programs that are faster than this one, but they do 
not test for errors on the source disk. 



F8 s Deepcopyl 



This copy option permits the copying of foreign formats and some 
copy protected disks. The process is slow, but thorough. Deepcopyl 
permits only one target drive. 



F9 = Deepcopyl 



The difference between Deepcopyl and Deepcopy2 is not very great, but 
very useful. This uses another method for finding the track gap. In 
some cases copy protected disks can be copied that could not be copied 
under Deepcopyl. 



F10 s Source drive 



The source drive can be selected using this option. The number keys are 
used to specify the correct drive. 



S = Sync correction 



Normally mis option should always be switched on. Only if the length 
of the sync mark was altered on a disk should an attempt be made to 
copy without sync correction. What happens during the correction is 
described later. 



Del a Destination drive 



Use this option to specify one or more target drives. The number keys 
are used to specify the correct drive. 
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Description of the copy methods 



Fastcopy The Fastcopy copy system does justice to its name. During one disk 

revolution a track is read, decoded and tested for errors. This is done as 
follows. 

First a block header is loaded after which the location of the track gap 
and the amount of data before and after it can be determined. Then the 
data located before the gap is loaded, simultaneously decoded and tested 
for errors. This is done by reading through the DMA while the proces- 
sor decodes the data. Using the blitter to decode does not make sense, 
since decoding cannot be faster than the loading of a track. The 
processor can be used more efficiently for mis. 

The data is compressed and stored in memory if only one drive is being 
used. In this case empty blocks are stored with only a few bytes. 

Since the program doesn't rely on operating system functions, damaged 
blocks can be read and corrected before being stored. In many cases data 
can be saved from a damaged disk by re-copying. Only hard errors that 
are reported as read/write errors can be corrected in this manner. 

Deepcopy The Deepcopy option works using a completely different method. First 

a write attempt is made on the target disk to determine how many bytes 
can be written. The number of bytes which can be written depends on 
the number of revolutions of me drive. This can differ slightly from one 
drive to another. The write test is important since otherwise the copy 
program would not know how much data must be removed from or 
added to the gap. Based on this write test, first the destination and then 
the source disk must be inserted into the drive. 

A second step is the test of the number of bytes which can be found on 
the source track. For this the data is read without the DMA access 
through the Byte Read register into memory and the number of bytes 
from index mark to index mark is measured. The measurement can differ 
by a few bytes. 

A search is made for the first sync mark "by hand" and the amount of 
data preceding it. This provides the distance of the mark to the index 
mark. 

Now that you know if the sync marks can be found, the track can be 
processed. 

If at least one mark was found, the track is read through the DMA with 
synchronization on the first sync mark behind the index. Since the 
approximate number of bytes on the track has already been measured, 
the number can now be determined exactly. 
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When the length of the track is known, the number and length of the 
blocks, and the number of sync bytes before each block is determined. 
This information is used to find the track gap. 

Finding the gap is done with two different criteria which can be selected 
with Deepcopy 1 and Deepcopy2. With Deepcopy 1 the gap is assumed 
at the end of the longest block which is valid for normal Amiga formats 
and also for IBM and Atari. For Deepcopy2 a search is made not for the 
longest block with a unique length. If a length occurs only once, it is 
probably the block containing a gap. The usual formats have the gap in 
the largest block, which is also the only one with deviating length. 

Setting the sync correction is normally very important. A track of 
unknown construction is read in one revolution without regard to the 
track gaps. The gaps contain mostly undefined data which causes the 
controller to go out of synchronization. This prevents the following 
sync mark from being read properly. Since a normal sync mark consists 
of at least two bytes, this is not important for reading data. Problems 
arise only when the data must be written again. Now only the sync 
mark, which was not properly recognized because of the gap, is written 
to the target disk. An error is created on the target disk. 

To combat these problems the copy program assumes that the number 
of sync words for every marking on a track is constant. The number of 
sync words which were found on the first synchronization, agrees with 
the actual number and provides a guide number to fit the other sync 
lengths, if the number of sync words following is smaller. 

With this option IBM formats can also be copied. In this format a gap 
is found after every block which often leads to loosing the following 
sync words. 

In every format where the number of sync words before the blocks 
differs, the sync correction must be switched off. 

Since the number of bytes from the index to the first sync mark has 
been measured, it is the same on the copy. A copy protection system in 
which the position of the blocks against each other is tested, is copied 



The time required for the various test procedures is well spent. 
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Using the program 



First it must be determined if the disk is copy protected or is a foreign 
format (not and Amiga disk). 

If during the copying of the disk with Fastcopy a read error is reported 
on every track, it is probably a foreign format This disk therefore can 
only be copied with Deepcopy. 

When a foreign format is detected, it must be decided if this is a format 
which was developed for the Amiga to produce faster loading. If this is 
the case, the disk probably can be copied with Deepcopy2 and sync 
correction "Off'. 

The reason is simple. Most fast formats for the Amiga wait for the 
index mark and then read the complete track. The Amiga is capable of 
reading a track in one revolution and the existence of more than one gap 
at the end of the track (directly before the index mark) would be non- 
sense. Therefore no sync marks can be "swallowed" because the copy 
program also waits for the index and therefore the gap is always at the 
end of the track read. The correction of the sync length is not required. 
The copy program with these options must also recognize the gap at 
the end of the track and therefore will copy it 

If a format for another computer is involved (for example IBM or 
Atari), try using Deepcopy 1 first. The sync correction should be 
switched off because the position of the gap (or gaps) is not known and 
the sync mark may not be found. 

If this is not successful, the user should try other options. Copying a 
copy protected disk should also be done with Deepcopy 1 and sync 
correction switched on. If this fails, then other options can be tried. 
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;The listing of the copy program DeepCopy.s 
;from the Abacus book 
/Amiga Disk Drives Inside and Out 
/Assembled using the AssemPro Assembler 



key = 


$BFEC01 




Cont = 


$BFEE01 




IntCon 


$BFED01 




MaxWait 


$4000 






MinWait 


$1000 












Text out 


= 


-30 


- 30 


InitRastPort 


= 


-30 


-168 


Movee 


= 


-30 


-210 


Draw 


= 


-30 


-216 


RectFill 


= 


-30 


-276 


SetAPen 


= 


-30 


-312 


InitBitMap 


librarj 


-30 


-360 








ExecBase 


= 




4 


t 

AllocMem 


= 


-30 


-168 


AvailMem 


= 


-216 




FreeMem 


= 


-30 


-180 


OldOpenLibrary 


= 


-30 


-378 


CloseLibrary 


= 


-30 


-384 


FindName 


= 


-276 




MEMF_Chip 


= 


$02 




MEMF_Fast 


= 


$04 




MEMF_Largest 


= 


$20000 


DevList 


= 


350 




Port 


= 


36 


/Drive 


IDNestCnt 




2 94 













floppy_size = floppyend - floppy 
floppy_s = floppy_size/6-l 



ON 
OFF 



; Error-Flag Values 

NoError = $0000 
NoSync = $0001 
LengthUnequal = $0002 
LengthOnequal2 = $0003 
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NoDisk 


= $0004 


ReadError 


= $0005 


VerifyError 


= $0006 


DiskProtect 


= $0007 


NotProtect 


= $0008 


Escape 


= $0009 


CopyAttemptl 


= 3 


CopyAttempt2 


= 3 



;Load options 



/Attempts on illegal Data 
/'Attempts on NoSync 



WithoutSync 
WithSync 



$0000 
$ffff 



/Write options 



No Index 
IndexOk 



$0000 
$ffff 



;Size of memory used 

SortBlockNum = $40 /Number of blocks, 

/whose length is sorted 
Bytesread = $3600 
BSize = 2*Bytesread 
req = 2 ; Chip-Memory 

CIAA = $BFEO0O 

GapLengthF = $500 ; Length of Gap for FastCopy 

NumReadsF = 5 /Number of Read attempts for Readerror (Fast) 

/Values for Cruncher 



ShrtNull 

MiddleNull 

LongNull 

ShrtNorm 

MiddleNorm 

LongNorm 

ShrtNone 

MiddleNone 

LongNone 

EmptyBlock 



= $80 
= $20 
= $08 
= $40 
= $10 
= $04 
= $c0 
= $30 
= $02 
= $01 



\An2: 



\Anl: 



lea DevName,al 

move.l $4,a6 

lea DevList (a6) ,a0 

jsr FindName(a6) 

move.l d0,a0 

beq Ende 

lea Port (a0),a0 

clr.w dO 

tst.l (a0)+ 

beq \Anl 

bset dO, Drives 

addq.w #l,d0 
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copy_ 







cmp.w #4,d0 






bne.s \An2 


move 


1 


ExecBase, a 6 


lea 




gfxname,al 


jsr 




OldOpenLibrary (a6) 


move 


1 


dO,gfxbase 


beq 




no_gfxbase 


move 


1 


#$2800, dO 


move 


1 


#$10002, dl 


jsr 




AllocMem(a6) 


move 


1 


d0,bit_adress 


beq 




no_bltmap 


move 


1 


#copsize+2,d0 


move 


.1 


#$10002, dl 


jsr 




AllocMem(a6) 


move 


.1 


dO, cop_adress 


beq 
irt: 




no_copper 

MOVE.L #BSize,D0 

MOVE.L #req,Dl 

JSR AllocMem(A6) 

TST.L DO 

BEQ no_DPuffer 

MOVE.L D0,TrackBufferl 

addq.l #6,TrackBufferl 

add.l #Bytesread-6,dO 

move.l D0,TrackBuffer2 

bsr GetMemory 

bra beg 

MOVE.L $4,A6 

MOVE.B #$FF,$BFD300 

move.w #$0020, $dff 09a 

JSR Disable 



/Memory for Cruncher 



MOVE.W #$8210,$DF096 



;set DMA-Reg. 



\ME7: 



\ME5: 



clr.w FreeFlagCh 
clr.w FreeFlagFa 



bsr HeadMov 
bsr Start_End 
.b #ON,dcl 
\ME7 
.b #ON,dc2 
\ME5 
.b SD,d0 



cmp. 
beq 
cmp. 
bne 
move . 



;set Heads to and set Motorbits 
; determine copy area 
/Deepcopy 1 



cmp.b DD,d0 

beq \ME6 

bsr SwitchS 

bsr TestProtect 

tst.l dO 

bmi \ME4 

bsr protect_source 

tst.l dO 

bmi \ME3 

bra \ME5 



rone Drive-Copy? 



;yes 



; Escape 



\ME4: 
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\ME1: 



\ME2: 

\ME6: 
\ME3: 



\Error : 
Ende: 



cmp.b #ON,fa 




bne \ME1 




bsr FastCopy 




bra \ME3 




cmp.b #ON,dcl 




bne \ME2 




bsr DeepCopy 




bra \ME3 




cmp.b #0N,dc2 




bne \ME3 




bsr DeepCopy 




bsr SwitchS 




bsr MotorOff 




bsr SwitchD 




bsr MotorOff 




move.w #$0600, 


$dff09e 


move.w #$8100, 


$dff09e 


bsr Enable 




move.w #$8020, 


$dff09a 


rts 





/Fastcopy on? 



;Deepcopyl on? 



;Deepcopy2 on? 



/restore Bits 



TextoutL: move.w StartTrack,d0 

lsr.w #l,d0 

move.b dO, Cylinder 

bsr reading_cyl 

rts 
TextoutS: move.w StartTrack,d0 

lsr.w #l,d0 

move.b dO, Cylinder 

bsr writing_cyl 

rts 
/output Read-Error 
RError: move.w StartTrack,d0 

move.b #l,side 

btst #0,d0 

bne \RE1 

clr.b side 
\RE1: lsr.w #l,d0 

move.b dO, Cylinder 

bsr read_error 

rts 
/output Write-Error 
WError: move.w StartTrack,d0 

move.b #l,side 

btst #0,d0 

bne \RE1 

clr.b side 
\RE1: lsr.w #l,d0 

move.b dO, Cylinder 

bsr write_error 

rts 



FastCopy: 



bsr GapCreate 
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\FC1: 

;FastCopy for 
FastCopyML: 

\FC5: 



move.b DD,dO 
cmp.b SD,dO 
beq \FC1 
bra FastCopyML 
bra FastCopyEL 

several Drives 



\FC1: 



\FC3: 



\FC2: 



\Error 



; for several Drives 
;for one Drive 



bsr SwitchD 
bsr TestProtect 
tst.l dO 
bpl \FC1 

bsr protect_Destination 
tst.l dO 
bmi \Error 
bra \FC5 
bsr Text out L 
bsr TrackLSF 
cmp.w #NoDisk,ErrorFlag 
beq \Error 
bsr SwitchD 
move.w StartTraok,dO 
bsr HeadPos 
bsr TextoutS 
bsr TrackFastWrite 
cmp.w #NoDisk,ErrorFlag 
beq \Error 

cmp.w #DiskProtect,ErrorFlag 
bne \FC3 

bsr protect_destination 
bra \Error 
cmp.b #ON,vd 
bne \FC2 
bsr TrackFVerify 
cmp.w #NoDisk,ErrorFlag 
beq \Error 

cmp.w #VerifyError,ErrorFlag 
bne \FC2 
bsr WError 
bsr compare_drives 
add.w #l,StartTrack 
move.w StartTrack,dO 
cmp.w EndTrack,dO 
bis \FC1 
rts 



Escape 



;load Track from Source 



/Verify ON ? 
/branch if not on 



;FastCopy for one Drive 
FastCopyEL : 



\FCEL1 : 



clr.b ShrtByte 

move.w #$1600, Length 

bsr NextMemory 

bsr TestProtect 

tst.l dO 

bmi \FCEL3 

bsr protect_Source 



/ShortByte for Chruncher 
/assign memory 
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tst.l dO 






bmi \FCEL2 


/Escape activated 




bra \FCEL1 




\FCEL3 : 


bsr FCopylDL 

tst.l dO 

bml \FCEL2 

move.l WriteAddrs,a5 

add.l #GapLengthF,a5 


/read in memory 


\FCEL7 : 


move.w TNumBuf f erA, StartTrack 




bsr insert_destination 






tst.l dO 






bmi \FCEL2 


/Escape 


\FCEL5 : 


bsr TestProtect 

tst.l dO 

bpl \FCEL6 

bsr protect_Destination 

tst.l dO 






bmi \FCEL2 


/Escape activated 




bra \FCEL5 




\FCEL6: 


bsr FCopylDS 
tst.l dO 
bmi \FCEL2 


/Write Tracks 




cmp.b #ON,ws 


/write repeatedly ? 




bne \FCEL8 


/no 




bsr write_b_again 






cmp.w #Escape,ErrorFlag 






beq \FCEL2 






tst.l dO 






bpl \FCEL7 


/ write again 


\FCEL8 : 


move.w StartTrack, TNumBuf ferA 




move.w TNumBuf ferE,dO 






cmp.w EndTrack,dO 






bcc \FCEL2 


. 




bsr insert_source 






tst.l dO 






bmi \FCEL2 


/Escape 




bra \FCEL1 





\FCEL2 : 



rts 



FCopylDL: 
\FCD1 : 



\FCD2 : 



bsr TrackLSF /load Track from Source 

cmp.w #NoDisk,ErrorFlag 

beq \Error 

move.l TrackBuf fer2,a0 /pass Pointer 

bsr Packe /crunch Track 

tst.l dO 

bmi \FCD2 /memory full 

bsr Text out L /output Text 

add.w #1, StartTrack 

move.w StartTrack, dO 

cmp.w EndTrack,dO 

bis \FCD1 

subq.w #1, StartTrack 

clr.l dO 

move.w StartTrack, TNumBuf ferE /Last Track 

rts 
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\Error : 



move.l #-l,dO 

rts 



;Copy portion 
FCopylDS : 

\FDS1 : 



for writing with one Drive 



\FDS3: 



\FDS2: 



\FCS4 : 



/first Track read 



/Buffer for Track (Target) 
/Track in regular size again 
/Target (TrackBuf fer 1 + Gap) 

/ Source 

/Track to be read 

/code Track 

/first Block = Null 



move.w StartTrack,dO 

bsr HeadPos 

bsr TextoutS 

move.l TrackBuffer2,aO 

bsr EntPacke 

move.l a5,al 

move.l TrackBuf fer 2, aO 

move.w StartTrack,dO 

bsr CodeTrack 

move.w #00,FirstBlockSp 

bsr TrackFastWrite 

cmp.w #NoDisk,ErrorFlag 

beq \Error 

cmp.w #DiskProtect,ErrorFlag 

bne \FDS3 

bsr protect_destination 

bra \Error 

cmp.b #ON,vd /Verify ON ? 

bne \FDS2 /branch if not on 

bsr TrackFVerify 

cmp.w #NoDisk,ErrorFlag 

beq \Error 

cmp.w #VerifyError,ErrorFlag 

bne \FDS2 

bsr WError 

bsr Get_Key /Escape activated? 

cmp.b #$45, dO 

bne \FCS4 /no, continue 

move.w #Escape,ErrorFlag 

bra \Error 

addq.w #1, Start Track 

move.w StartTrack,dO 

cmp.w TNumBufferE,dO 

\FDS1 

1 dO 

w FreeFlagCh 

w FreeFlagFa 



\Error : 



bis 
clr 
clr 
clr 
rts 
move 
rts 



/Chip-Mem is available again 
/ Fast-Memomory is available again 



1 #-l,dO 



/crunch Track and store 

/>= AO Pointer to TrackBuf fer 

Packe : 



\PA2: 



move.l a2,-(a7) 

move.l a0,a2 

lea TrackPointer,aO 

clr.l dO 

move.w StartTrack,dO 

lsl.w #2,d0 

adda.l dO,aO 



/Pointer to Track 

/Pointer to Track-Table 
/ Track-Number 
/Pointer to Memory 
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\PA1: 



move.l Memory Beg, (aO) 

move.l Memory Beg, al 

move.l a2,a0 

bsr Crunch 

tst.l dO 

bpl \PA1 

bsr NextMemory 

tst.l dO 

bpl \PA2 

move.l (a7)+,a2 

rts 



/store Pointer to Track 



/Ok, continue 
/get new Mempory 

;Ok, Memory obtained 



;get Track from memory; >= AO = Pointer to Target for Track 
EntPacke : 

move.l aO,al 

lea TrackPointer, aO 

clr.l dO 

move.w StartTrack,dO 

lsl.w #2,d0 

adda.l dO,aO 

move.l (aO),aO 

bsr DeCrunch 

rts 



/Pointer to Track-Table 

/ Track-Number 

/Pointer to memory 
/get Pointer to Track 



GetMemory: 



\HS1: 
\HS2: 



\HS3: 
\HS4: 



move.l a6,-(a7) 
move.l #MEMF_Chip, dl 
or.l #MEMF_Largest,dl 
move . 1 ExecBase , a 6 
jsr AvailMem(a6) 
move.l dO,LengthChip 
bne \HS1 

clr.l MemoryChip 
bra \HS2 
jsr AllocMem(a6) 
move.l dO, MemoryChip 
move.l #MEMF_Fast,dl 
or.l #MEMF_Largest,dl 
jsr AvailMem(a6) 
move . 1 dO , LenghtFast 
bne \HS3 

clr.l MemoryFast 
bra \HS4 
jsr AllocMem(a6) 
move.l dO, MemoryFast 
move.l (a7)+,a6 
clr.w FreeFlagCh 
clr.w FreeFlagFa 
rts 



/get next memory block 
NextMemory: 



\NS3: 



tst.w FreeFlagCh 
bpl \NS1 

tst.w FreeFlagFa 
bpl \NS4 



/no Chip available 
/get Fast-Memory 



/ok 



(no fast memory available 



/memory is free 



/Chip not available 
/Yes, is free 
/Fast memory still available 
/Yes, is free 



272 



Abacus 



The Deepcopy Program 



\NS5: 
\NS4: 

\NSl: 

\NS6: 
\NS2: 



move.l #-l,dO 

bra \NS2 

move.l MemoryFast , dO 

beq \NS5 

move.l LenghtFast , dl 

move.w #$ff£&,FreeFlagFa 

bra \NS6 

move.l MemoryChip, dO 

beq \NS3 

move.l LengthChip,dl 

move.w #$ffff,FreeFlagCh 

move.l dO, Memory Beg 

move.l dl, Memory Length 

olr.l dO 

rts 



;no memory free 

;no Fast memory free 
/Fast memory occupied 

;no Chip free 
/occupy Chip 



;load Track (Fastcopy) 

;>= StartTrack = Track to be loaded 

/=> SBytes = Number of Bytes to be written 

;=> WriteAddrs = Address from which writing starts 



TrackLSF: 



\TSF6: 



\TSF1: 



\TSF5: 
\TSF7 : 



movem.l d2/a2,-(a7) 

bsr SwitchS 

move.l TrackBufferl,a5 

move.l a5, WriteAddrs 

add.l #GapLengthF,a5 

move.l TrackBuffer2,a4 

move.w #(GapLengthF+$2ecO+2) , SLength 

move.w StartTrack, dO 

bsr HeadPos 

move.w #NumReadsF-l,d2 

bsr FastReads 

move.w FirstBlock,FirstBlockSp ;1. Block loaded 

cmp.w #NoDisk,ErrorFlag 

beq \TSF7 

cmp.w #ReadError,ErrorFlag 

bne \TSF5 

dbf d2,\TSF6 /branch, if reading again 

tst.l dO ;No Sync found 

bpl \TSF1 

move.l a4,a0 /pass Buffer 

bsr DOSClear /store Track empty 

bsr RError /output error 

move .1 a4 , aO 

move.l a5,al 

move.w StartTrack, dO /pass Track-Number 

bsr CodeTrack /generate Track from data 

clr.w FirstBlockSp /first Block = 

clr.l dO 

movem.l (a7)+,d2/a2 

rts 



/enter Gap Bytes in Track -Buffer 
GapCreate : 
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\LS1: 



move.l TrackBuf ferl,aO 
move.w #(GapLengthF/4)+4,dO 
move.l #$aaaaaaaa, (a0) + 
dbf dO,\LSl 
rts 



TrackFVerify: 



\TF2: 



\TF1: 



\TF4: 



\TF6: 



\TF5: 



\TF3: 



movem.l d2-d4/a4-a5,-(a7) 
clr.w d3 

clr.w VerErrFlag 
move.b MotorBits,d4 
move.l TrackBuf fer2,a5 
move.l TrackBuf ferl,a4 
add.l #GapLengthF r a4 

move.b tr,d2 

move.w d3,dl 

bsr SwitchND 

tst.l dO 

bmi \TF6 

bsr FastVerify 

cmp.w #NoDlsk,ErrorFlag 

beq \TF3 

cmp.w #VerifyError,ErrorFlag 



;Dest .-Counter 

/erase Verify-Error-Flag 

; store Motor Bits 



/number of Write attempts 

;Dest .-Number to Dl 
/switch on Desti.il.ion 
/Drive present 
/No 



/Error, No Disk 



bne \TF6 

subq.b #l,d2 

bne \TF5 

bset d3, VerErrFlag 

addq.w #l,d3 

cmpi.w #4,d3 

bcs \TF1 

bra \TF3 

bsr TrackFastWrite 

bra \TF4 

move.b d4,MotorBits 

movem.l (a7)+,d2-d4/a4-a5 

rts 



/no Error, continue 

/ decrement Error-Counter 

continue if another attempt 

/set Bit for Error 

/ increment Dest . number 



no additional Drives 



TrackFastWrite : 



DeepCopy : 



\DC1: 
DeepCopyEL : 



move.l a5,-(a7> 
move.l WriteAddrs,a5 
move.w SLength,dO 
move.w #NoIndex,dl 
bsr Writer 
move.l (a7)+, a5 
rts 

move.b DD,dO 
cmp.b SD,dO 
beq \DC1 
bra DeepCopyML 
bra DeepCopyEL 



/ for several Drives 
/for one Drive 



move.b #$aa, ShrtByte /ShortByte for Chruncher 
bsr NextMemory /assign memory 
bsr insert destination 
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\FCEL9 : 



\FCEL10: 



\FCEL11: 



\FCEL1 : 



\FCEL3 : 



\FCEL7 ; 



\FCEL5 : 



\FCEL6 : 



\FCEL8 : 



\FCEL2 : 



tst.l dO 

bmi \FCEL2 

bsr TestProtect 

tst.l dO 

bpl \FCEL10 

bsr protect_Destination 

tst.l dO 

bmi \FCEL2 

bra \FCEL9 

bsr LengthTest 

move.w StartTrack,TrackNumS 



; Escape activated 



move.w LenghtDest,dO 

addi.w #$10, dO 

move . w dO , Lengt h 

bsr insert_source 

tst.l dO 

bmi \FCEL2 

bsr TestProtect 

tst.l dO 

bmi \FCEL3 

bsr protect_Source 

tst.l dO 

bmi \FCEL2 

bra \FCEL1 

bsr DeepCopylDL 

tst.l dO 

bmi \FCEL2 

move.w TNumBufferA,StartTrack 

bsr insert_destination 

tst.l dO 

bmi \FCEL2 

bsr TestProtect 

tst.l dO 

bpl \FCEL6 

bsr protect_Destination 

tst.l dO 

bmi \FCEL2 

bra \FCEL5 

bsr DeepCopylDS 

tst.l dO 

bmi \FCEL2 

cmp.b #ON,ws 

bne \FCEL8 

bsr write_b_again 

cmp.w #Escape, ErrorFlag 

beq \FCEL2 

tst.l dO 

bpl \FCEL7 

move.w StartTrack,TNumBuf ferA 

move.w TNumBuf ferE,dO 

cmp.w EndTrack,dO 

bcs \FCEL11 

rts 



/Length for Cruncher 



; Escape activated 
;read into memory 



; Escape activated 
; Write Tracks 



/write several times ? 
;no 



write again 



DeepCopylDL: 
\FCD1 : 



clr.w ErrorFlag 
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\FCD3 : 



\FCD2: 



\Error : 



bsr TrackLS ;load Track from Source 

cmp.w #NoDisk,ErrorFlag 

beq \Error 

move.l TrackBuffer2,aO ;pass Pointer 

move.l WriteAddrs,al 

lea -6(a0) ,a0 

move.l al, (aO) 

move.w SLength, 4 (aO) 

bsr Packe /crunch Track 

tst.l dO 

bmi \FCD2 /Memory full 

bsr TextoutL 

add.w #l,StartTrack 

move.w StartTrack,dO 

cmp.w EndTrack,dO 

bis \FCD1 

subq.w #l,StartTrack 

clr.l dO 

move.w StartTrack,TNumBuf ferE /Last Track 

rts 

move.l #-l,dO 

rts 



/ first Track read 

/Buffer for Track (Target) 
/Track again in normal size 



/Copy part for writing with one Drive 
DeepCopylDS: 

move.w StartTrack,dO 
\FDS1: bsr HeadPos 

bsr TextoutS 

move.l TrackBuf fer2,a0 

lea -6(a0) ,a0 

bsr EntPacke 

move.l TrackBuffer2,aO 

move .1 - 6 ( aO ) , Wr iteAddr s 

move.w -2 (aO) , SLength 

move.l #$aaaaaaaa,-4 (aO) 

bsr TrackWriter 

cmp.w #NoDisk,ErrorFlag 

beq \Error 

cmp.w #DiskProtect,ErrorFlag 

bne \FDS3 

bsr protect_destination 

bra \Error 
\FDS3: cmp.b #ON,vd /Verify ON ? 

bne \FDS2 /branch, when not on/ 

bsr TrackFVerify 
cmp.w #NoDisk,ErrorFlag 
beq \Error 

cmp.w #VerifyError,ErrorFlag 
bne \FDS2 
bsr WError 
\FDS2: addq.w #l,StartTrack 

move.w StartTrack,dO 

cmp.w TNumBufferE,dO 

bis \FDS1 

clr.l dO 

clr.w FreeFlagCh /Chip-Mem is free again 
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\Error: 



clr.w FreeFlagFa 
rts 
move.l #-l,dO 
rts 



; Fast-Mem is free again 



DeepCopyML : 
\DC5: 



\DC3: 



\DC1: 



\DC2: 



\Error : 



bsr SwitchD 

bsr TestProtect 

tst.l dO 

bpl \DC3 

bsr protectJDestination 

tst.l dO 

bmi \Error 

bra \DC5 

bsr LengthTest 

tst.l dO 

bmi \Error 



bsr Text out L 
bsr TrackLS 
cmp.w #NoDis)c,ErrorFlag 
beq \Error 
bsr SwitchD 
move.w StartTrack,dO 
bsr HeadPos 
bsr TextoutS 
bsr TrackWriter 
cmp.w #NoDisk,ErrorFlag 
beq \Error 

cmp.w #DiskProtect,ErrorFlag 
bne \DC2 

bsr protect_destination 
bra \Error 
add.w #l,StartTrack 
move.w StartTrack,dO 
cmp.w EndTrack,dO 
bis \DC1 
rts 



/Escape activated 



/load Track from Source 



;load Track from Source or Destination 

;>= StartTrack = Track which will be loaded 

TrackLS: bsr SwitchS 

move.l TrackBuf ferl,a5 
move.w StartTrack, dO 
bsr HeadPos 
bsr TrackLoader 
rts 

; Check length of Source- and Dest .-Diskette 
;=>CheckLength = Length of Source-Disk 
;=>LenghtDest = Length of Dest. -Disk 
LengthTest : 

bsr SwitchD 
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move.w StartTrack,dO 
bsr HeadPos 

move.l TrackBuffer2,a5 
bsr erase 

move.w #Bytesread-$15,dO 
bsr Writer 
tst.l dO 

bmi \TD1 /Disk write protected 

bsr Counter 
tst.l dO 

bmi \TD1 ;No Disk in Drive 

move.w CheckLength,LenghtDest 
\TD1: rts 

;load Track after setting Motor Bits 

;>= A5 = Pointer to the Read buffer 

/=> WriteAddrs = Pointer to Data for writing 

;=> SLength = Number of Bytes to be written 



move.w #CopyAttemptl,CopyTryl 



TrackLoader : 

Attempt 1: 

move.w #CopyAttempt2,CopyTry2 
/Attempts, on NoSync 
Attempt 2 : 

/measure length of Track (Index <=> Index) 
;read data without DMA in Buffer starting at A5 

move.w #NoError,ErrorFlag 

bsr Counter ;=> CheckLength = Length of Track 

tst.l dO ;Disk in Drive? 

bmi \TrackLoaderEnd 

/measure distance from Index to Sync 

;if no Sync, then DO = -1 

;=> Syncwidth = distance to Sync 

bsr Syncdistance 

tst.l dO 

bpl \OK2 

sub.w #l,CopyTry2 

bne Attempt2 

/Program part when no Sync is found 

\TL7: move.l TrackBuffer2,a5 

bsr CopyOSync 
bra \TL11 



\0K2: 



move.w CheckLength, dO 

add.w #$100, dO 

move.w #WithSync,dl 

bsr loader 

move.w SyncWord, (a5) /store first Sync 
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/determine number of Bytes to Track (Sync to Sync) 

/=> DO = -1, if number deviates too much from CheckLength 

;=> TrackBytes = Length of Track \ 

bsr SrchTEnd 

tst.l dO 

bpl \TL3 

bsr SrchTEnd2 

tst.l dO 

bpl \TL3 

sub.w #l,CopyTryl 

bne Attemptl 

move . w CheckLength, TrackBytes 
sub.w #$10, TrackBytes ;if no End found 

; shorten Track 

; search for Gap if Sync was found 

/>= A5 Pointer to beginning of Track 

;=> Sizel = Size of the largest Block 

;=> Size2 = Size of the second largest Block 

;=> SizePos = Position of the largest Block 
/=> SyncNum = Number of Syncs found 

\TL3: 

clr.l dO 

move.w TrackBytes, dO 
add.l a5,d0 
move.l dO,EndPos 

bsr Blockidentify 
cmp . w #SortBlockNum, SyncNum 
bis \TL2 /Number of Sync Ok 

;Too many Blocks for intermediate memory 

move.l SizePos, BegPos /Gap in largest Block 
bra \TL1 ;Too many Blocks to sort 

bsr TrackAmiga ;Test if Amiga-Track 

tst.l dO 

bpl \TL4 /branch if Amiga-Track 

cmp.b #ON,sy /Sync correction 

bne \TL5 /no 

\TL4 : bsr Synccorrector 
\TL5: bsr OrderBlocks 

bsr SearchGap 
\TL1: move.l TrackBuf fer2,a4 /Destination for copying 

bsr Entirecopy 
\TL11: clr.l dO /erase Error-Flag 

\TrackLoaderEnd: 

rts 

/load Track which has no Sync 
/>= A5 = Track-Buffer 



\TL2: 
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=> GapLength = Length of Gap 

=> Syncwidth = (no Sync) 

=> TrackBytes = Number of Bytes on the Track 



CopyOSync: 



\C0S7 : 
\C0S6: 



movem.l d2-d3,-(a7) 

move.w CheckLength,dO 

cmp.w #Bytesread-50,dO 

bcc \COS 7 

add.w #36, dO 

bra NCOS 6 

move.w #Bytesread-50,CheckLength 

move.w #Bytesread-16,dO 

move.w #WithoutSync,dl 

bsr loader 

tst.l dO 

bmi \COSl 

move.w CheckLength,dl 

sub.w #50, dl 



/Source-Track too long 



\COS2 i 



\COS4 : 
\COS3 : 



move.l a5,a0 




move.b (a0)+, 


d2 


move.b (a0)+, 


d3 


cmp.b d2,d3 




bne \COS4 




sub.w #l,dl 




bne \COS2 




bra \COSOK 




add.l #2,a0 




move.b (aO) +, 


d2 


move.b (a0)+, 


d3 


cmp.b d2,d3 




bne \COSNO 




sub.w #l,dl 




bne \COS3 




move.l a5,a0 





/Track-Buffer 
;get first Byte 

/compare Bytes 
;not equal 
/increase number 

; Track the same everywhere 

; jump over Gap 



/compare Bytes 

/not always the same 

/ increment Counter 



\COSOK: 
\COS5 : 
\COSNO : 



\COSl: 



move.w LenghtDest,dO 

add.w #$10, dO 

move.b d2, (a0)+ 

dbf dO,\COS5 

move.w LenghtDest,dO 

add.w #$4,d0 

move.w dO, TrackBytes 

move . w dO , SLength 

move.l a5,WriteAddrs 

move.w #NoSync, Error Flag 

clr.l dO 

movem.l (a7)+,d2-d3 

rts 

move.l #-l,d0 

rts 



/number of write bytes 
/beginning of Data 



TrackWriter: 
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move.l WriteAddrs,a5 
move.w SLength,dO 
bsr Writer 
rts 



\ER2; 



move.l TrackBuf fer2, AO 
move.w #(Bytesread-$10)/4,d0 
move.l #$aaaaaaaa, (aO) + 
dbf dO,\ER2 
rts 



/determine copy area (Start- and End-Cylinder) 

/>= StartTrack = Track where start is made (Track!!) 

;>= EndTrack = Track which is copied last (Track!!) 



Start_End: clr.l dO 

move.b fc,dO 

lsl.b #l,dO 

move.w dO, StartTrack 

move.w dO,TNumBufferA 

move.b lc,dO 

lsl.b #l,dO 

add.w #l,dO 

move.w dO, EndTrack 

rts 



; first Cylinder 
/Cylinder => Track 



;last Cylinder 

/Cylinder => Track 

/last Track = bottom side 



/test if Disk is in the Drive 

; => DO - -1, if no Disk in the Drive 



DisklnFloppy: 



\DIF: 



clr.l dO 

move.b $bfe001,d0 

btst #2,d0 

bne \DIF 

move.l #-l,d0 

move.w #NoDisk,ErrorFlag 

rts 



/load Track 

/A5 = Pointer to Data-Buffer 



Loader : 



MOVEM.L d2-d3,-(A7) 

move.w d0,d3 

lsr.w #l,d3 

bsr DisklnFloppy 

tst.l dO 

bmi \L1 

MOVE.W #$8010,$DFF096 

move.w #$7f00,$DFF09E 

MOVE.L A5,A1 

MOVE.L A1,$DFF020 

cmp.w #WithSync,dl 

bne \L3 

MOVE.W SyncWord, $DFF07E 

move.w #$8500,$DFF09E 

lea 2(a5) ,al 



;read Byte num 



/enable Disk-DMA 
/erase Disk-Bits 
/Pointer to Data-Buffer 
/pass Data-Buffer 



/pass SYNC-Word 
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move.l al,$DFF020 
bra \L4 



;pass new Address 



\L3: 
\L4: 



\L2: 



\L1: 
\L5: 



MOVE.W #$8100,$DFF09E 

MOVE.W #$4000,$DFF024 

bsr Index 

tst.l dO 

bmi \L1 

or.w #$8000, d3 

MOVE.W d3,$DFF024 

MOVE.W d3,$DFF024 

clr.l dO 

MOVE.L #$18000, Dl 

move.w #$0002,$dff09c 

MOVE.W $DFF01E,D2 

BTST #1,D2 

BNE.S \L1 

SUBQ.L #1,D1 

BNE.S \L2 

move.l #-l,d0 

MOVE.W #$4000,$DFF024 

MOVEM.L (A7)+,D2-d3 

RTS 



;To MFM-Format 

; prepare transmission 

;wait to Index 



;read Data 

/report Ok 

; set time counter 

/erase Blockdone-Int . 



/wait for Disk-Block-Ready 
/decrement Counter 
/branch when not done 



/wait for Index hole 



Index: 



Indexl : 



Index2 : 



move 


.1 dl,-<a7) 




clr. 


L dO 




move 


.1 #$30000, 


dl 


MOVE 


.B $BFDD00, 


DO 


MOVE 


.B $BFDD00, 


DO 


BTST 


#4, DO 




Bne. 


s Index2 




sub. 


1 #l,dl 




bne 


Indexl 




move 


.1 #-l,d0 




move 


.1 (a7)+,dl 




rts 







/wait for Index hole 



/determine Motorbits, set Heads to 

HeadMov: 

movem.l d2-d4,-(a7) 
clr.w d3 
move.b DD,d2 
or.b SD,d2 

\KA1: clr.l dO 

btst d3,d2 
beq \KA2 
bset d3,d0 
lsl.b #3,d0 
eor.b #$fb,d0 
move.b d0,MotorBits 
bsr MotorOn 



/Dest .-Drives 
/ Source-Drives 

/Drive now in use ? 
/not in use 
/Bit for Drive 
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\KA2: 



TestDrive : 



;=> DO = -1 ■ 
TestProtect : 



\TP2: 
\TP1: 



clr.l dO 
bsr HeadPos 

addq.w #l,d3 
cmp.w #4,d3 
bne \KA1 

bsr MotBits 

move.b MotorBitsD,MotorBits 

move.b #-l,Flag 

clr.w TrackNumS 

clr.w TrackNumD 

bsr SwitchS 

movem.l (a7)+,d2-d4 

rts 

move.l a0,-(a7) 
lea $bfd000,a0 
bclr #l,MotorBits 
bsr Stepper 
bset #l,MotorBits 
bsr Stepper 
move.l (a7)+, aO 
rts 

=> Disk protect 
bsr TestDrive 
clr.w ErrorFlag 
move.b $bfe001,d0 
btst #3,d0 
bne \TP2 

move.w #DiskProtect, ErrorFlag 
move.l #-l,dO 
bra \TP1 
clr.l dO 
rts 



; place Head in position indicated by DO 



HeadPos: 



Upper : 



MOVEM.L D0-D3,-(A7) 
lea $bfd000,a0 
tst.w dO 
beq HeadNull 
move.w TrackNum,d2 
CMP.W d2,D0 
BEQ.S Headend 
move.w d0,d3 
move.b MotorBits,dl 
bset #2,dl 
btst #0,d3 
beq Dpper 
bclr #2,dl 
move.b dl,MotorBits 
move.b dl,$100(a0) 
move . w d3 , TrackNum 
lsr.w #l,d2 



/current Track-Number 

;End when right Track 
; Track -Number to D3 

/lower Head 

/select lower Head 

/upper Head 
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In: 



Out: 



Heads : 
rechok : 
Headend: 



lsr.w #l,d3 

sub.w d3,d2 

bcs.s In 

bhi.s Out 

bra Headend 

bclr #l,dl 

move.b dl,MotorBits 

neg.w d2 

bra.s rechok 

bset #l,dl 

move.b dl,MotorBits 

bra.s rechok 

bsr Stepper 

dbf d2, Heads 

movem.l (a7)+,d0-d3 

rts 



/calculate steps 



HeadNull: 



HeadNulll: 



\Hel: 



move.b Mot orbit s,dl 

bset #2,dl 

bset #l,dl 

move.b dl, Mot or bits 

clr.w TrackNum 

move.b $bfe001,d0 

btst #4,d0 

beq.s \Hel 

bsr Stepper 

bra HeadNulll 

bclr #l,MotorBits 

bsr Stepper 

bset #l,MotorBits 

bsr Stepper 

bra Headend 



Stepper: 





move.b MotorBits,dO 




lea $100(a0),al 




move.b dO,dl 




bclr #0,d0 




move.b dO, (al) 




nop 




nop 




move.b dl, (al) 




jsr Timer 




move.b MotorBits, <al) 




rts 


;Wait loop 




Timer : 


MOVE.L D7,-(A7) 




MOVE.W #2500, D7 


\L1: 


DBRA D7,\L1 




MOVE.L (A7)+,D7 




RTS 


Timer2 : 


MOVE.L D7,-(A7) 



MOVE.L #$6000, D7 
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\L1: sub.l #1,D7 

bne \L1 

MOVE.L (A7)+,D7 
RTS 

/Motor routine: D0=0 => Motor off 



MotorOff : 
MotorOn : 
Motor : 



Mook: 



Disable: 



Enable : 



LOOS: 



olr.l dO 
bra Motor 
move.b #$01, dO 

movem.l dl/d2,-(a7) 

lea $bfd000,a0 

tst dO 

seq dl 

andi.b #$80, dl 

move.b MotorBits,d2 

andi.b #$80, d2 

cmp.b dl,d2 

beq.s Mook 

bclr #7,MotorBits 

or.b dl, Mot or Bits 

move.b #$ff,dl 

eor.b d2,dl 

move.b dl,$100(a0) 

move.b MotorBits, $100 (aO) 

btst #7, MotorBits 

bne Mook 

jsr Timer2 

movem.l (a7)+,dl/d2 

rts 

move.w #$4000, $dff 09a 

move.l a6,-(a7) 

move.l $4,a6 

add.b #l,IDNestCnt(a6) 

move.l (a7)+,a6 

rts 

move.l a6,-(a7) 

move.l $4,a6 

sub.b #l,IDNestCnt(a6) 

bge L005 

move.w #$c000, $df f09a 

move.l <a7)+,a6 

rts 



/Waits for Byte during read and stores Byte (aO) + 

rts 

;>= aO = Address of data to be found 

;>= Al = Address where search starts 

;>= Searchln = Number of words for error 

; >= NumWords = Number of Words which is compared 

;=> Dl = Number of Bytes to fund;=> Position = where found 

;=> DO = -1 = not found 
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;=> AO = Position where found 



Bitsrch: 



srch2 : 
srchl: 



movem.l d2-d6/a2-a4,- (a7) 

move.l a0,a2 

move.l al,a3 

clr.w d5 

move.w Searchln,d4 /Search num 

move.w #00, d3 ;number of shift Bits 

move.l (a2),dl 

move.l (a3),d2 

bsr comp 

tst.w dO 

beq srchok 

move.l a0,a2 

tst.w d5 

beq srch4 

clr.w d5 

move.w d6,d3 

move .1 a4 , a3 



srch4 : 



srch3: 



srchok: 



add.w #l,d3 
cmp.w #$10, d3 
bne srchl 
add.l #2,a3 
clr.w d5 
dbf d4,srch2 
move.l #-l,d0 
bra srchend 

tst.w d5 
bne srchok2 
move.l a3,a4 
move.w d3,d6 



/compare the right ones 
/Counter for attempts 
/not found 



srchok2: add.w #l,d5 

cmp.w NumWords,d5 

beq srchendl 

add.l #2,a2 

add.l #2,a3 

bra srchl 
srchendl: move.l #0,d0 

sub.w #l,d5 

lsl.w #l,d5 

suba.l d5,a3 

move.l a3,a0 

move.l a3, Position 

move.l a3,a0 /Position 

move.w d3,BitShifts /Bit shifting 

sub.l al,a3 

move.l a3,dl /Number of Bytes until found 

srchend: movem.l (a7) +,d2-d6/a2-a4 

rts 
comp: movem.l dl-d2,-(a7) 

lsl.l d3,d2 

swap dl 
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swap d2 
eor.w dl,d2 
move.w d2,d0 
movera.l (a7)+,dl-d2 
rts 



MotBits: 



move.b SD,dO 
lsl.b #3,d0 
eor.b #$fb,dO 
move.b dO,MotorBitsS 
move.b DD,dO 
lsl.b #3,d0 
eor.b #$fb,dO 
move.b dO,MotorBitsD 
rts 



/Source-Disk 



;Dest .-Disk 



/switch on next Dest. -Drive 

; ! ! ! Caution ! ! ! old Motorbits are reset 

; >= Dl ■ = which Drive ( < 4 ) 

/=> DO = -1, if no additional Drive available 

;=> DO = Null if OK 



SwitchND : 



\SND1: 



\SND3 : 



\SND2 : 



move.l d2,-(a7) 

clr.l dO 

move.b DD,d2 

btst dl,d2 

bne \SND1 

move.l #-l,dO 

bra \SND2 

bset dl,dO 

lsl.b #3,d0 

eor.b #$7b,d0 

move.w StartTrack,dl 

bset #2, dO 

btst #0,dl 

beq \SND3 

bclr #2,d0 

move.b dO,MotorBits 

move.b d0,$bfdl00 

clr.l dO 

move.l (a7)+,d2 

rts 



/Drive connected ? 
/yes, connected 



/Bit for Drive 



/lower Head select 
/upper Head 



SwitchS : 



tst.b Flag 
bpl \S1 

move.b MotorBits,MotorbitsD 
move.w TrackNum, TrackNumD 
move.b MotorBitsS,MotorBits 
move.w TrackNumS, TrackNum 
move.b #$7f,$bfdl00 
move.b MotorBits,dO 



287 



Appendix C 



Amiga disk drives inside and out 



\si: 
SwitchD : 



bclr #7,d0 
move.b d0,$bfdl00 
move.b dO,MotorBits 
clr.b Flag 
rts 



\S1: 



tst.b Flag 


bmi 


\S1 




move 


.b 


MotorBits,MotorbitsS 


move 


.w 


TrackNum, TrackNumS 


move 


.b 


MotorBitsD,MotorBlts 


move 


.w 


TrackNumD, TrackNum 


move 


.b 


#$7f,$bfdl00 


move 


.b 


MotorBits,dO 


bclr 


#7,d0 


move 


.b 


d0,$bfdl00 


move 


.b 


dO,MotorBits 


move 


.b 


#-l,Flag 


rts 







; store Track 

;>= DO = number of Bytes to write 

;>= A5 = Track -Buffer 

;>= Dl = Indication if wait for Index 



( IndexOk/NoIndex) 



Writer: MOVEM.L D2-D3,-(A7) 

move.w dl,d2 

move.w d0,d3 

clr.w ErrorFlag 

bsr DisklnFloppy 

tst.l dO 

bmi \Protect 

move.b $bfe001,d0 

btst #3,d0 

bne \SR5 

move.w #DiskProtect, ErrorFlag 

bra \Protect 
\SR5: lsr.w #l,d3 

jsr MotorOn 

MOVE.W #2,$DFF09C 

MOVE.L A5,$DFF020 

MOVE.W #$8210,$DFF096 

move.w #$7f00,$dff09e 

MOVE.W #$8100,SDFF09E 

cmp.w #80,StartTrack 

bcs \SR1 

move.w #$a000,$dff09e 
\SR1: MOVE.W #$4000,$DFF024 

cmp.w #NoIndex,d2 

beq \SR2 

bsr Index 

tst.l dO 

bmi \Protect 
\SR2: or.w #$c000,d3 

MOVE.W d3,$DFF024 



/Number to D3 



; from Byte make Word 

;erase Disk-Block-Int . 
;pass Data-Buffer 
/enable Disk-DMA 

/MFM-Format 



/Pre-compensation 
/prepare transmission 



/switch to write 
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\SR3: 



\Protect: 
\SR4: 



/write Data 
;pass OK message 
;set time counter 



;wait for Disk-Block-Ready 
/decrement Counter 
/branch when not done 



MOVE.W d3,$DFF024 

clr.l dO 

MOVE.L #$20000, Dl 

MOVE.W $DFF01E,D2 

BTST #1,D2 

BNE.S \SR4 

SUBQ.L #1,D1 

BNE.S \SR3 

move.l #-l,d0 

move.w #$4000, $dff 024 

MOVEM.L (A7)+,D2-D3 

RTS 
/Searches for Track-End when Sync found 
/>= A5 = Pointer to Track-Buffer (Sync found) 
/=> TrackBytes = Number of Bytes on the Track (seek for Sync) 
/=> DO = -1, too much deviation from CheckLength 



SrchTEnd: 



\STE2: 



move.l a5,a0 

clr.l dO 

move.w CheckLength, dO 

sub.w #$4,d0 

adda.l d0,a0 

move.w #$10, dO 

bsr SrchSync 

tst.l dO 

bmi \STE2 

suba.l a5,a0 

sub.w #2,a0 

move.w aO, TrackBytes 

rts 

move.l #-l,d0 

move.w #LengthUnequal,ErrorFlag 

rts 



SrchTEnd2: 



\STE2: 



move.l a5,a0 

adda.l #$04, aO 

move.l a0,al 

clr.l dO 

move.w CheckLength, dO 

sub.w #$40, dO 

adda.l d0,al 

move.w #$40,Searchln 

move.w #$60,NumWords 

bsr Bitsrch 

tst.l dO 

bmi \STE2 

suba.l a5,a0 

suba.l #6,a0 

move.w aO, TrackBytes 

rts 

move.l #-l,d0 

move . w #LengthOnequal2 , Er rorFlag 

rts 



/Position before Sync 
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/search for Blocks and store 

;>= A5 = Pointer to Track beginning 

;=> Sizel = Size of the largest Block 

;=> Size2 = Size of the second largest Block 

/=> SizePos = Position of the largest Block 

;=> SyncNum = Number of Syncs found 

;=> Blocks = Buffer in which the Block sizes are stored 

Blockidentify: movem.l d2-d4/a3,-(a7) 

move.w TrackBytes,d2 

move.l a5,a3 

clr.w Sizel 

clr.w Size2 

clr.w SyncNum 

clr.w d3 



/Bytes on Track 
/Beginning of Track 



\S2: 



\S6: 



\S5: 



\S7: 



move.w d2,d0 
move.l a3,a0 
bsr SrchSyncF 
tst.l dO 
bmi \S5 
tst.w dl 
beq \S6 
move.w d3,d4 
add.w dl,d3 
bsr Blockentry 
bsr Size 
clr.w d3 

add.w #2,d3 

add.w #2,dl 

andi.l #$ffff,dl 

adda.l dl,a3 

sub.w dl,d2 

bcc \S2 

bra \S7 

move.w d2,dl 

add.w #2,dl 

move.w d3,d4 

add.w dl,d3 

bsr Blockentry 

bsr Size 

movem.l <a7)+,D2-d4/A3 

rts 



/where to start search 
/End 

/Number + Sync 

/Sync gap = 
/Sync gap +2 



/Number +2 
/Sync message 
/Number + Syn 



/Enter size of Blocks 
/>= Dl = Block size 



Size: 



\S3: 



cmp.w Sizel, d3 

bcs \S3 

move.w Sizel, Size2 

move.w d3, Sizel 

move.l aO,al 

move.l al, SizePos 

bra \S4 

cmp.w Size2,d3 
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\S4: 
Blockentry: 



\S1: 



bcs \S4 

move.w dl,Size2 

rts 



move.w SyncNum,dO 
cmp.w #$40, dO 
bcc \S1 
lsl.w #2,d0 
lea Blocks, al 
lsr.w #l,d4 
move.w d4, (al,d0) 
add.w #2,d0 
move.w d3, (al,d0) 
add . w # 1 , SyncNum 
rts 



;Too many Blocks ? 
;yes, do not store 



/store Block 



;seek Sync-Mark (fast) 

;>= A0 = Search address 

;>= DO = Byte number for errors permitted 

;=> A0 = Sync address 

;=> DO = -1, no Sync found 

;=> Dl = found after xx Bytes 

SrchSyncF: 

lsr.w #l,d0 ;from Byte make Word 

move.l a0,al 
\SSF2: cmp.w #$4489, (a0)+ 

beq \SSF1 

dbf dO,\SSF2 

move.l #-l,d0 

bra \SSF3 
\SSF1: suba.l #2,a0 

move.l a0,d0 

sub.l al,a0 

move.w a0,dl 

move.l d0,a0 

clr.l dO 
\SSF3: rts 
; search for Sync-Mark 
;>= A0 = Search address 

;>= DO = Byte number for errors permitted 
;=> A0 = Sync address 
;=> DO = -1, no Sync found 
;=> Dl = found after xx Bytes 
;=> BitShifts = shifted by xx Bits 



SrchSync: 



\SS3: 



movem.l d2-d4/a2, - (a7) 

move.l a0,a2 

lsr.w #2,d0 ;Byte out, with longword value 

lea SyncBase, al 

clr.l dl 

move.l #$ffff0000,d3 

move.l (a0)+,d2 
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\SS2: move.l d2,d4 

and.l d3,d4 

cmp.l (al,dl),d4 

beq \SS1 

add.w #4,dl 

lsr.l #l,d3 

cmp.w #$40, dl 

bis \SS2 

dbf dO,\SS3 

move.l #-l,d0 

bra \SS4 
\SS1: clr.l dO 

lsr.w #2,dl 

move.w dl,BitShifts 

cmp.w #$8,dl 

bcc \SS5 

suba.l #2,a0 
\SS5: suba.l #2,a0 

move.l a0,dl 

suba.l a2,a0 

exg.l a0,dl 
\SS4: movem.l <a7) +,d2-d4/a2 

rts 

/Distance Index <=> Sync 

/=> Syncwidth = Distance Index <=> Sync 

;=> DO = -1, no Sync found 

Syncdistance: 

move.l a5,a0 

move.w CheckLength, dO 

bsr SrchSync 

tst.l dO 

bpl \SE1 

move.w #NoSync,ErrorFlag 

bra \SE2 
\SE1: 

move.w dl, Syncwidth 
\SE2: rts 

;A5 = TrackBuffer 

/Counter of Data on Disk without Sync and without DMA 

;>= A5 = Pointer to Verify-Buffer for reading Data without Sync 

/=> CheckLength = Length of a Track (From Index to Index) 



Counter: 



bsr DisklnFloppy 

tst.l dO 

bmi \Z5 

movem.l d2-d4/a2-a3, -(a7) 

move.w #$0600,$dff09e /switch Sync off 

move.w #$8000, $dff 024 

lea $dff01b,a0 

lea $dff01a,al 

lea $bfdd00,a2 
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\Z4: 



\Z1: 



\Z2: 



\Z6: 
\Z5: 



; erase Byte-Ready-Flag 



/erase Byte-Ready-Flag 
/erase Indexbit 



move.l #15, d2 
move.l #4,d3 
move.w #l,d4 
clr.w dO 
move.b (a2),dl 
move.b (a2) ,dl 
btst #4,dl 
beq.s \Z4 
move.w (al) ,dl 
move.b (a2),dl 
move.l a5,a3 

btst d2, (al) 
beq.s \Z1 
btst d3, (a2) 
bne.s \Z2 
add.w d4,d0 
move.b (aO) , (a3)+ 
bra \Z1 



andi.w #$fffe,dO 

move.w dO,CheckLength 

cmp.w #Bytesread, dO 

bcs \Z6 

move.w #Bytesread-16,CheckLength 

bclr #31, dO /erase Errorbit 

movem.l (a7) +,d2-d4/a2-a3 

move.w #$4000, $dff 024 

rts 



/Track too long 



/Sort Block sizes 



OrderBlocks: 



\OB5: 



\OB4i 



\OB3: 



\OB2: 



move.l d2,-(a7) 

cmp . w #SortBlockNum, SyncNum 



bhi \OBEND 

tst.w SyncNum 

beq \OBEND 

clr.w NumSortBlock 

lea Blocks, aO 

move.w SyncNum, dO 

move.l (a0)+,dl 

sub.w #l,d0 

lea SortBlocks,al 

move.w NumSortBlock, d2 

tst.w d2 

beq \OB2 

cmp.w (al)+,dl 

bne \OB3 

add.w #1, (al) 

bra \OB6 

adda.w #2,al 

sub.w #l,d2 

bne \OB4 

move.w dl, (al) + 

move.w #1, (al)+ 



/too many Blocks 



/no Blocks 



/Number of Blocks -1 



/first Block 



/ found 



/continue search 
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\0B6: 
\OBEND : 



add.w #l,NumSortBlock 
tst.w dO 
bne \OB5 
move.l (a7)+,d2 
rts 



;new search 



SearchGap: 



move.l d2,-(a7) 

clr.l BegPos 

move.w NumSortBlock,dO 



cmp.b #l,dcl 
beq \SL10 

/search for single Blocks 



,-DeepCopy 1 (Gap after large Block) 



\SL3: 



\SL10: 
\SL7: 



\SL8: 



\SL9: 



sub.w #l,dO 

bsr SingleBlock 
tst.l dO 
bpl \SL7 
move.l SizePos,aO 



move 

cmp 

bcs 

move 

move 

move 
#)p. 

■ b'tfs? 
move 
move 
rts 



1 AO, BegPos 
1 EndPos,aO 
\SL8 

.1 a5,a,0,. '■,'>■'.'■: 
.1. aO, BegPos 
; *,. (■...«■ ■' " j 

.!'• sizePos, dp 
If EJviPbs>dO 

1 a5,SizePos 
1 (a7)+,d2 



; Block number -1 

/search for single Block 
/Gap found ? 
/branch when not found 
/Gap with largest Block 



/Search for single Block 

/=> DO = Block number 

/=> DO = Block number of next Block 

/=> DO = -1, when none found 

/=> Dl = Size of Block 

/=> aO = Address of the Blocks 



SingleBlock: 



\EB2: 



movem.l d2-d4,-(a7) 
and.l #$ffff,dO 
tst.w dO 
bmi \EB3 

lea Sort Blocks, aO 
move.w dO,dl 
lsl.w #2,dl 
move.l (a0,dl),d2 
cmp.w #l,d2 
beq \EB1 



/erase error message 



/Block found 



294 



Abacus 



The Deepcopy Program 





sub.w #l,dO 






tst.w dO 






bpl \EB2 




\EB3: 


move.l #-l,dO 






bra \EBEND 


/Error 


\EB1: 


move.w (a0,dl),d2 


/Block length 




clr.w d3 


/erase Blockadr. 




lea Blocks, aO 




\EB4: 


move.l (aO)+,dl 






add.w dl,d3 


/determine Address 




cmp.w dl,d2 






bne \EB4 


/continue if not done 




sub.l aO,aO 


/clear AO 


\EB5: 


move.w d3,a0 


/Offset 




add.l a5,a0 


/Address 




move.w d2,dl 


/Block size 




sub.w #l,dO 


/Number of next Block 


\EBEND : 


movem.l (a7)+,d2-d4 
rts 





/Test if Track on Amiga-Format 
/=> DO = Null, if Track Amiga-Format 
/=> DO = -1, if not Amiga-Format 
TrackAmiga : 

move.l d2,-(a7) 

lea Blocks, aO 

cmp.w #$Ob,SyncNum 

bne \PL1 

clr.w dl 

clr.l d2 

move.w #$0a,d0 
\PL3: move.w d0,d2 

lsl.w #2,d2 

cmp.w #$0440,2(a0,d2) 

bne \PL2 

add.w #l,dl 
\PL2: dbf dO,\PL3 

cmp.w #$9,dl 

bcs \PL1 

clr.l dO 

move.b #ON,AmigaTrack 
\PL4: move.l (a7)+,d2 

rts 
\PL1: move.l #-l,dO 

move.b #OFF,AmigaTrack 

bra \PL4 
/The program assumes that all Syncs are equal in length 
/all Syncs are fitted to the first 
/>= A5 = Pointer to Track-Buffer 



/Pointer to Block storage 
/SyncNum for Amiga-Format 
/No not Amiga-Format 



/Block length for Amiga 

/at least 9 Amiga-Blocks 
;0K, Amiga-Format 

/not Amiga-Format 



Synccorrector : 



movem.l d2-d4,-(a7) 
cmp.w #1, SyncNum 
beq \SK1 
lea Blocks, aO 
clr.w dO 



/only one Sync 
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\SK3: 



\SK2: 



\SK8: 



clr.l d3 
move.l a5,al 
move.l (a0)+,d2 
move.w d2,d3 
swap d2 
adda.l d3,al 
add.w #l,dO 
cmp.w SyncNum,dO 
bcc \SK1 
move.l (aO)+,dl 
move.w dl,d3 
swap dl 
cmp.w d2,dl 
bcc \SK3 
sub.w d2,dl 
not.w dl 
move.w dl,d4 
move.l al,-(a7) 

cmp.l SizePos,al 
bne \SK8 
sub.l #2,SizePos 
move.w #$4489, -(al) 



/Block length 
;Sync value 
/Pointer to Block 



/Block length 
/SyncNum from Block 

/do not correct 



/Number of new Syncs 

/must Pos be changed 
/change SlzePos 



\SK1: 



\SK6: 

\SK4: 
\SK7: 

\SK5: 



dbf d4,\SK2 

move.l (a7)+, al 

add.w #l,dl 

add.w dl,-4(a0) 

lsl.w #l,dl 

sub.w dl,-6(a0) 

add.w dl,-2(a0) 

bra \SK3 

cmp.w #LengthUnequal,ErrorFlag 



beq \SK7 

move.w d2,d0 

move.l EndPos,al 

add.l #2,al 

bra \SK4 

cmp.w #$4489, (al) + 

bne \SK5 

dbf dO,\SK6 

movem.l (a7)+,d2-d4 

rts 

sub.w d0,d2 

lsl.w #l,d2 

sub.l #2,EndPos 

sub.w #2,TrackBytes 

sub.w #2,-2 (aO) 

bra \SK7 



/no end correction required 
/Sync value 

/set Pointer to Sync 

/test transition to beginning 



/Last Block is shorter 



/after the Gap has been determined, the Data are copied/ and 

written 

/>= A5 = TrackBuffer (Source) 

/>= A4 = TrackBuffer (Destination) 

Entirecopy: 
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\UK6: 



\0K9: 
\0K4: 



\DK3: 
\HK5: 



\UK7: 
\UK8: 



move.l a2,-(a7) 
move .1 a4 , al 
move.l BegPos,aO 
sub.l a5,a0 
clr.l dO 

move.w Syncwidth,d0 
sub.w #$0044, dO 
bcc \OK6 
clr.w dO 



/Offset of the beginning 

/distance correction 
/distance too small ? 
/yes, distance = 



/distance from Index 
/number of Bytes before Sync 
/beginning of writing 



/Byte to Word 

/ Source-Addres s 
/Destination-Address 



add.l d0,a0 

move.w aO, Offset 

suba.l a0,al 

move.l al,WriteAddrs 

move.w TrackBytes,dO 

lsr.w #l,d0 

move.w LenghtDest , dl 

move.l BegPos,aO 

move .1 a4 , al 

cmp.b #ON, AmigaTrack 

bne \UK9 

add.l #4,al 

move.l #$aaaaaaaa,-4 (al) 

move.w (aO) , (al)+ 

sub.w #l,dl 

cmp.l EndPos,aO 

bcs \UK3 

move.l a5,a0 

bra \UK5 

adda.l #2,a0 

dbf d0,\UK4 

move.l (a7)+,a2 

and.w #$f000,dl 

bne \DK8 /Source longer than Destination 

move.w #$aaaa, (al)+ /if Dest. is longer than Source 

dbf dl,\UK7 

move.w LenghtDest,dO 

sub.w #$0006,d0 

add.w Offset, dO 

move.w dO,SLength 

rts 
/read Track and decode 

/>= A4 = Pointer to Buffer for decoded Data 
/>= A5 = Pointer to Buffer for coded Data 



FastReads: 



MOVEM.L D2-D4/a3/a6,-(A7) 

lea decode, a3 

move.w #$080,DecodeCnt 



lea $40(a5) ,a0 
move .1 aO , DecodeAdr 
adda.l #$400, aO 
move.l a0,FTestAdr 
move.w #OFF,VerifyFlag 
bra Fread 



/Jump point for decode 
/number of 
/Longwords to decode 

/Data area of first Block 

/Address of the next Block 
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Fast Verify: 



Fread: 



movem.l d2-d4/a3/a6,-(a7) 
lea FVerify,a3 
move.l a5, Decode Adr 
lea $440(a5),a0 
move.l aO,FTestAdr 
move.w #ON,VerifyFlag 



clr.w ErrorFlag 

bsr DisklnFloppy 

tst.l dO 

bral \FastError 

MOVEA.L A5,A6 

move.l #$aaaaaaaa, (a6) + 

move.w #$4489, (a6)+ 

bsr search 

tst.l dO 

bmi \FreadEnd 



rJump point for Verify 



/Track-Buffer 



;enter first Sync 



\FL1: 



\FL2: 



\FL3: 



\FastError: 
\FreadEnd: 



bsr FErase 

clr.l d2 

move.w BytesBef Gap, d2 

tst.l d2 

beq \FL1 

clr.w BlockAdr 

bsr Readbyte 

clr.l dO 

move.w BytesBef Gap, dO 
a5,a6 
d0,a6 

#$aaaaaaaa, (a6) f 
#$4489, (a6) + 
BytesAf tGAp, d2 



/prepare Track-Buffer 

/display Byte before Gap 

/No Byte before Gap 
/Offset in Block 
/read Byte 



.1 
.1 
.1 
.w 
.w 



Pointer to next Buffer 
enter first Sync 



move 

adda 

move 

move 

move 

tst.l d2 

beq \FL2 

clr.w BlockAdr 

bsr Readbyte 

cmp.w #ON,VerifyFlag 

beq \FL3 

bsr lastblock /no last Block during Verify 

BTST #2,$BFE001 

BEQ.S \FastError 

MOVEQ #0,d0 

move.l #$aaaaaaaa,$2ec0(a5) 



/Error, if no Disk 
/OK-Message 



bra VFreadEnd 
move.l #-l,d0 
MOVEM.L (A7)+,D2-D4/a3/A6 

RTS 



/create Gap after Data 



/prepare Track-Buffer (erase Block starts) 
/>= A5 = Pointer to Track-Buffer 



FErase: 



move.l a5,a0 
move.w #10, dl 
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clr.l dO 
\L1: move.l d0,$440(a0) 

adda.l #$440, aO 

dbf dl,\Ll 

lea BlockMessage, aO 

move.w #10, dl 
\L2: clr.w (a0)+ 

dbf dl,\L2 

rts 

;read number of Bytes selected 
/>= A6 = Pointer to Destination 
;>= D2 = Number of Bytes to be read 

Readbyte: 

jsr install 

MOVE.W D2,D0 

LSR.W #1,D0 

ORI.W #$8000, DO 

add.w #l,d0 

MOVE.W D0,36(A1) 

MOVE.W D0,36(A1) 

jsr (a3) 

LEA $DFF000,A1 

MOVE.W #$4000, $24 (Al) 

rts 

/preparation for reading 

/>= A6 Pointer to Track-Buffer 

install: LEA $DFF000,A1 

move.w #$4000, $24 (al) ;reset Disk-Len 
move.w #$8400,$9e(al) /switch on Disk-Sync 
move.w #$4489,$7e(al) /SYNC -Mark 
MOVE.L A6,$20(A1) /pass Buffer 
move.w #$0002, $dff 09c 
rts 

/code Longword and store in Buffer 

/>= DO = Longword 

/>= A0 = Pointer to Buffer 

CodeLWord: MOVEM.L D2-D3,-(A7) 

MOVE.L D0,D3 

LSR.L #1,D0 

BSR \CH1 

MOVE.L D3,D0 

BSR \CH1 

BSR SetBorders 

MOVEM.L (A7)+,D2-D3 

RTS 
\CH1: ANDI.L #$55555555, DO 

MOVE.L D0,D2 

EORI.L #$55555555, D2 

MOVE.L D2,D1 

LSL.L #1,D2 
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LSR.L #1,D1 
BSET #$1F,D1 
AND.L D2,D1 
OR.L D1,D0 
BTST #0,-1 (AO) 
BEQ.S \CH2 
BCLR #$1F,D0 

\CH2: MOVE.L DO, (A0)+ 

RTS 

;set borders properly 

SetBorders: MOVE.B <A0),D0 





BTST #0,-1 (AO) 




BNE.S \CH4 




BTST #6, DO 




BNE.S \CH6 




BSET #7, DO 




BRA.S \CH5 


\CH4: 


BCLR #7, DO 


\CH5: 


MOVE.B DO, (AO) 


\CH6: 


RTS 



/determine Checksum for Data area 

;>= Dl = number of Bytes (must always be divisible by 4) 

;>= AO = Pointer to Buffer 

;=> DO = Checksum 

TestSum: MOVE.L D2,-(A7) 

LSR.W #2,D1 

SDBQ.W #1,D1 

MOVEQ #0,D0 
\PS1: MOVE.L (A0)+,D2 

EOR.L D2,D0 

DBRA D1,\PS1 

ANDI.L #$55555555, DO 

MOVE.L (A7)+,D2 

RTS 

; decode Block-Header 

;>= AO is Pointer to Header 

; => DO = Header 

Header: move.l (a0)+, DO 
move.l (aO)+,Dl 
andi.l #$55555555, dO 
andi.l #$55555555, dl 
lsl.l #1,D0 
or.l D1,D0 
rts 

;find first undisturbed Block 

;=> A6 = Pointer to Track -Buffer 

;=> DO = Null: Block found 

;=> BytesBefGap = Number of Bytes before the Gap 

;=> BytesAftGAp = Number of Bytes after the Gap 



300 



Abacus 



The Deepcopy Program 



search: 



\S01: 



\S02: 



\SHNeu : 
\SOok: 



movem.l d2-d4,-(a7) 
move.w #11, d2 
bsr install 
move.w #$8024, dO 
MOVE.W D0,$dff024 
MOVE.W D0,$dff024 
bsr Block ready 
tst.l dO 
brai \SUError 

lea 8(a5) ,a0 

moveq #$28, dl 

bsr Test Sum 

move.l d0,d3 

lea 48 (a5) ,a0 

bsr Header 

cmp.l d0,d3 

bne \SUNeu 

lea 8(a5) ,a0 

jsr Header 

move.w d0,d3 

lsr.w #8,d3 

andi.w #$00ff,d3 

addi.w #l,d3 

cmp.w #$000a,d3 

bis \SU2 

clr.w d3 

move . w d3 , SectNum 

move.w d3,FirstBlock 

move.w d0,d3 
andi.w #$ff,d3 
cmp.b #$0c,d3 
bcs.s \SOok 
dbf d2,\SUl 
bra \SOError 



/Number of errors permitted 
/read $2 4 -Words 



/wait for Block-Ready 
/Error, then DO = -1 



/Pointer to Block -Header 

/number of Long words 

/Sum for Header 

/ save Sum 

/*Sum 

/get Sum from Header 

/compare Sums 



/ decode Header 
/Header to D3 

/isolate Sector number 
/increment Sector number 
/Number bigger than 10? 
/No, OK 
/Number = 
/ store Number 
/Number first Block 

/Header 

/Sectors to Gap 
/Header OK? 



Gap 



\SUError: 
\SUEnd: 



sub.w #l,d3 
move.w d3,d2 
move.w #$000b, d4 
sub.b d2,d4 
mulu #$440, d3 
mulu #$440, d4 



/number of Blocks to Gap 



/Number of Blocks after Gap 
/Number of Bytes to Gap 
/Number of Bytes after 



clr.l dO 

move.w d3,BytesBefGap 

move.w d4 , BytesAf tGAp 

move.w #$0b,SectBL/ Sectors before Gap after loading 

bra \S0End 

move.l #-l,d0 

move.w #ReadError,ErrorFlag 

movem.l (a7)+,d2-d4 

rts 
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Blockready: 
\B1: 



\B2: 



clr.l dO 

move.l #$20000, dl 

move.w #$0002, $dff 09c 

MOVE.W $DFF01E,D0 

BTST #1,D0 

bne.s \B2 

sub.l #l,dl 

bne \B1 

move.l #-l,d0 

RTS 



;erase Error-Flag 
/erase Disk-Int. 



/Error occurred 



/decode Bytes until Block has been read 



decode : 



\DC1: 



\DC2: 



movem.l d2-d3/a2,-(a7) 
clr.l d3 

move.w BlockAdr,d3 
move.l FTestAdr,a0 

move.l Decode Adr,a2 

move.w DecodeCnt,d2 



/Offset in Block 
/Address for testing if 
/Block already loaded 
/Address where 
/decoding is done 
/Number for decoding 



MOVE.W $DFF01E,D0 

BTST #1,D0 

bne \DCEnd 

tst.l (aO) 

beq \DC1 

movem.l a0-al,-(a7) 

lea -$40(a2),al 

bsr BlockCheck 

movem.l (a7)+,a0-al 

move.w SectNum,d0 

mulu #$200, dO 

move.l a4,al /Base address for destination data 

add.l d0,al /Address of the Block 



/area already read 
/Yes, End 
/TestAdr 
/wait until Block has been read 
/save Register 
/* Block start 
/check Block 
/restore Register 



MOVE.W $DFF01E,DO 
BTST #1,D0 
bne.s \DCEnd 

move.l (a2),D0 
move.l $200(a2),Dl 
adda.l #4,a2 
andi.l #$55555555, dO 
andi.l #$55555555, dl 
lsl.l #1,D0 
or.l D1,D0 
move.l dO, (al,d3) 
addq.w #4,d3 
subq.w #1,D2 
bne \DC2 
adda.l #$240, a2 
adda.l #$440, aO 
move.l #$080, D2 



/area already read 



/enter Longword 

/Decode number 

/increment Address 
/TestAdr 
/Decode number 
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clr.w d3 


/Offset to Null 




add.w #l,SectNum 


/increment Sector number 




cmp.w #$Ob,SectNum 


/Number more than 10? 




bcs \DC3 


/No, OK 




clr.w SectNum 


/Number = 


\DC3: 


bra \DC1 




\DCEnd: 







move.w d3,BlockAdr 
move.l a2,DecodeAdr 
move.l aO,FTestAdr 
move.w D2,DecodeCnt 

movem.l (a7)+,d2-d3/a2 
RTS 



/decode last Block 



Lastblock: 



movem.l d2-d3/a2,-(a7) 



\LB1: 



move . w SectNum, dO 
mulu #$200, dO 
move .1 a4 , al 
add.l d0,al 
clr.l d3 

move.l Decode Adr,a2 
move.w DecodeCnt,d2 
move.l (a2),D0 
move.l $200(a2),Dl 
adda.l #4,a2 
andi.l #$55555555, dO 
andi.l #$55555555, dl 
lsl.l #1,D0 
or.l D1,D0 
move.l dO, (al,d3) 
addq.w #$4,d3 
subq.w #1,D2 
bne \LB1 

movem.l (a7)+,d2-d3/a2 
RTS 



/Base address for dest. 
/Address of the Block 



data 



; Decode number 



/test Block for Error 

/Al = Pointer to start of Block 



BlockCheck : 



movem.l d2-d3,-(a7) 

clr.l d3 

move.w SectNum, d3 

lsl.w #l,d3 

lea BlockMessage, aO 

move.w (a0,d3),d0 

tst.w dO 

bne \CBEnd2 



/Sector number => Offset 

/get entry 
/already tested ? 
/yes. End 



lea 64 (al) , aO 
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move.w #$400, dl 
jsr TestSum 
move.l d0,d2 
lea 56 (al) ,a0 
jsr Header 
cmp.l d0,d2 
bne \DataFalse 



;Sum for Data block 
;save Sum 

/Pointer to Data sum 
/decode Sum 



\CBEndl : 



\CB1: 
\CB2: 



\CBEnd2 : 



lea 8 (al) ,a0 

bsr Header 

move.w d0,d2 

lsr.w #8,d2 

cmp.b SectNum+l,d2 

bne \FalseSector 

swap dO 

cmp.b StartTrack+l,dO 

bne \FalseTrack 

andi.l #$ff00,d0 

cmp.w #$ff00,d0 

bne \NotDOSTrack 

lea 8 (al) ,a0 

moveq #$28, dl 

bsr TestSum 

move.l d0,d2 

lea 48 (al) ,a0 

bsr Header 

cmp.l d0,d2 

bne \HeaderFalse 

move.w #$ffff,d0 

lea BlockMessage,aO 

move.w dO, (a0,d3) 

btst #0,-1 (al) 

beq \CB1 

move.l #$2aaaaaaa, (al) 

bra \CB2 

move.l #$aaaaaaaa, (al) 

move.l #$44894489,4 (al) 

move.w #$ff00,d0 

move.b StartTrack+l,dO 

swap dO 

move.b SectNum+l,dO 

lsl.w #8,d0 

move.b SectBL+l,d0 

lea 8(al) ,a0 

bsr CodeLWord 

lea 8(al) ,a0 

moveq #$28, dl 

bsr TestSum 

lea 48 (al) ,a0 

bsr CodeLWord 

subq.w #l,SectBL 

movem.l (a7)+,d2-d3 

rts 



/decode Header 
/store lower Word 
/Sector number to d2 
/right Sector 

/Track-Number to DO 
/right Track? 



/number of Longwords 

/Sum for Header 

/save Sum 

/*Sum 

/get Sum from Header 

/compare Sums 



/create new Header 



; store Header 

/Longword number 

/Sum for Header 

/*Sum 

/store Checksum 



\FalseSector : 



move.w #$0001, dO 
bra \Flagset 
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\FalseTraok : move.w #$0002, dO 

bra \Flagset 
\NotDOSTrack : move.w #$0017, dO 

bra \Flagset 
\HeaderFalse : move.w #$001b,d0 

bra \Flagset 
\DataFalse: move.w #$0019, dO 
\Flagset: move.w #ReadError,ErrorFlag 

bra \CBEndl 

/compare Bytes read with old 

/>= A4 = Pointer to Base address of the old Block 



FVerify: 



\FV1: 



\FV2: 



\FV3: 



cmp #VerifyError,ErrorFlag 

beq \FVEnd2 

movem.l d2-d3/a2,-(a7) 

clr.l d3 

move.w BlockAdr,d3 

move . 1 FTestAdr , aO 

move . 1 DecodeAdr , a2 



MOVE.W $DFF01E,D0 
BTST #1,D0 
bne \FVEnd 
tst.l (aO) 
beq \FV1 
move.w #$110, d2 
move.w SectNum,dO 
sub.w FirstBlockSp, dO 
bcc \FV2 
addi.w #11, dO 

mulu #$440, dO 
move.l a4,al 
add.l d0,al 



; Offset in Block 
/Address for test if 
/Block already loaded 
/Address, where 
/comparison is made 



/area already read 
/Yes, End 
/ TestAdr 
/Wait until Block was read 
/comparison number 



;Base address for dest. 
/Address of the Block 



data 



move.l (a2)+,d0 

cmp.l (al,d3),d0 

beq \FV6 /Verify Ok 

/test for special case ($aaaaaaaa and $2aaaaaaa) 

move.l (al,d3),dl 

eor.l dl,d0 

cmp.l #$80000000, dO 

bne \FV5 
\FV6: addq.w #4,d3 

subq.w #l,d2 

bne \FV3 

adda.l #$440, aO 

clr.l d3 

add.w #l,SectNum 

cmp.w #$0b,SectNum 

bcs \FV1 

clr.w SectNum 

bra \FV1 



/ TestAdr 
/Offset to Null 
/increment Sector number 
/Number higher than 10? 
/No, OK 
/Number = 
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\FV5: move.w #VerifyError,ErrorFlag 

bra \FVEnd3 
\FVEnd: 

clr.w ErrorFlag 

move.w d3, Block Adr 

move.l a2,DecodeAdr 

move.l aO,FTestAdr 
\FVEnd3: movem.l (a7)+,d2-d3/a2 
\FVEnd2 : RTS 

;code Track 

;>= AO = Pointer to Source 

;>= Al = Pointer to Destination 

;>= DO = Track-Number 

CodeTrack : 

movem.l d2-d4/a2-a3,-(a7) 

move.l d0,d4 

move.l a0,a2 

move.l al,a3 

moveq #$0b,d2 

clr.w d3 
\CT1: move.w #$ff00,d0 

move.b d4,d0 

swap dO 

move.w d3,d0 

lsl.w #8,d0 

move.b d2,d0 

move.l a2,a0 /Source 

move.l a3,al /Destination 

bsr ConstructBlock . 

add.l #$440, a3 

add.l #$200, a2 

addq.w #l,d3 

subq.w #l,d2 

bne \CT1 

movem.l (a7) +,d2-d4/a2-a3 

rts 

;code Block and create Header 

;>= AO = Uncoded Data (Source) 

;>= Al = Data buffer for coded Data (Destination) 

;>= DO = uncoded Header 

ConstructBlock: MOVEM.L D2/A2/A4,-(A7) 

MOVEA.L A1,A4 

MOVEA.L A0,A2 

MOVE.L D0,D2 

MOVEQ #0,D0 

LEA (A4 ) , AO 

BSR CodeLWord 

MOVE.L #$44894489,4 (A4) 

MOVE.L D2,D0 

LEA 8(A4),A0 

BSR CodeLWord 

MOVEQ #3,D2 
\EB1: MOVEQ #0,D0 
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BSR CodeLWord 

DBRA D2,\EB1 

LEA 8 (A4 ) , AO 

MOVEQ #$28, Dl 

BSR TestSum 

LEA $30(A4),A0 

BSR CodeLWord 

MOVE.L #$200, DO 

MOVEA.L A2,A0 

LEA $40<A4),A1 

BSR CodeBlock 

LEA $40(A4),A0 

MOVE.W #$400, Dl 

BSR TestSum 

LEA $38(A4),A0 

BSR CodeLWord 

MOVEM.L (A7)+,D2/A2/A4 

RTS 

;code Data Block 

;>= DO = Length of the Source 

;>= AO = Pointer to Source 

;>= Al = Pointer to Destination 

CodeBlock : 

movem.l d2/a5,-(a7) 

MOVE.W D0,D1 

LSL.W #2,D1 

ORI.W #8,D1 

MOVE.W D1,D2 

movem.l d0-dl/a0-al/a5,-(a7) 

move.l a0,dl 

move.l al,a5 

lea $dff000,a0 

bsr BlitWait 

bsr BlitterCode 

movem.l (a7) +,d0-dl/a0-al/a5 

MOVE.L D0,D1 

MOVEA.L A1,A0 

BSR SetBorders 

ADDA.L D1,A0 

BSR SetBorders 

ADDA.L D1,A0 

BSR SetBorders 

movem.l (a7)+,d2/a5 

RTS 

;A0 = $dff000 

;D0 = Length of Source 

;D1 = Source 

;A5 = Destination 



BlitterCode: 



bsr Modulu ;set Mode 

MOVE.L D1,$4C(A0) 
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MOVE.L D1,$50(A0) 
MOVE.L A5,$54(A0) 
MOVE.W #$1DB1,$40(A0) 
MOVE.W #0,$42(A0) 
bsr StartBlit 
MOVE.L A5,$4C(A0) 
MOVE.L D1,$50(A0) 
MOVE.L A5,$54(A0) 
MOVE.W #$2d8c,$40(A0) 
bsr StartBlit 
movem.l d0-dl/a5,-(a7) 
ADD.L D0,D1 
SUBQ.L #2,D1 
ADDA.L D0,A5 
ADDA.L D0,A5 
SUBQ.L #2,A5 
MOVE.L D1,$4C(A0) 
MOVE.L D1,$50(A0) 
MOVE.L A5,$54(A0) 
MOVE.W #$DB1,$40(A0) 
MOVE.W #$1002, $42 (AO) 
bsr StartBlit 
movem.l (a7) +,d0-dl/a5 
movem.l d0-dl/a5,-(a7) 
ADDA.L D0,A5 
MOVE.L A5,$4C(A0) 
MOVE.L D1,$50(A0) 
MOVE.L A5,$54(A0) 
MOVE.W #$1D8C,$40(A0) 
MOVE.W #0,$42(A0) 
bsr StartBlit 
movem.l (a7)+,d0-dl/a5 
rts 



/Source B 
/Source A 
;Dest 



; start Blitter and wait for end of Blitter 

StartBlit: 

MOVE.W d2,$dff058 
BlitWait: btst #14,$dff002 

bne.s BlitWait 

rts 

; set Mode for coding 
;>= AO = $dff000 
Modulu : 

movem.l d0/al,-(a7) 

MOVEQ #0,D0 

LEA $44(A0),A1 

MOVE.L #-1, (Al) 

LEA $62(A0),A1 

MOVE.L DO, <A1) + 

MOVE.W DO, (Al)+ 

ADDQ.L #8,A1 

MOVE.W #$5555, (Al) 

movem.l (a7)+,d0/al 

rts 
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; erase Track with DOS 
;>= AO = Pointer to Track 
DOSClear : 

move 



•Buffer 



\D01: 



#$444F5300,dO 
move.w #$57f,dl 
move.l dO, (a0) + 
addq.b #l,dO 
dbf dl,\D01 
rts 



;DOS + 

; erase Track 



/shorten Track and store in memory 

;>= AO = Pointer to beginning of Track 

/>= Al = Pointer to destination address 

;>= Length = number of Bytes to be shortened 

/>= ShrtByte = Byte, which should be stored shorter 

;=> Al = Pointer to memory for shortened Block 

Crunch: 

movem.l d2-d7/a2/a4, - (a7) 

clr.w d7 

clr.w d2 

move.w Length, d3 /number of Bytes 

move.l MemoryLength,d6 



\CHAnf : 



\CH4i 



\CH10: 



\CHEnd: 



; short sequel 



\KF1: 



tst.w d7 
bne \CHEnd 
movea.l a0,a2 
bsr \EraseBlock 
tst.w dO 
beq \CHAnf 
move.b (a0),d4 
cmp.b ShrtByte, d4 
beq \KF1 
cmp.b 1 (aO) ,d4 
bne \CH10 
cmp.b 2 (aO) ,d4 
beq \AF1 
addq.l #l,aO 
subq.w #l,d3 
bne \CH4 
bsr \NoResult 



move.b #$00, dO 

move.b dO, (al) + 

subq.l #l,d6 

bcs CrunEnd 

move.l d6,MemoryLength 

move.l al,MemoryBeg 

clr.l dO 

movem.l (a7)+,d2-d7/a2/a4 

rts 



/intermediate storage for Address 



/Null byte 
/no sequel 
/other sequels 

/continue search 



cmp.b 1 (aO) ,d4 
bne \CH10 
bsr \NoResult 



/no Null 
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\KF2: 



\KF3: 



\KF4: 



bsr CounterBytes 

cmp.w #$40, dl 

bcc \KF2 

ori.b #ShrtNull,dl 

move.b dl, (al) + 

subq.l #l,d6 

beq CrunEnd 

bra \KF4 

cmp.w #$1000, dl 

bcc \KF3 

move.w dl,d0 

lsr.w #8,d0 

ori.b #MiddleNull,d0 

move.b dO, (al) + 

subq.l #l,d6 

beq CrunEnd 

move.b dl, (al) + 

subq.l #l,d6 

beq CrunEnd 

bra \KF4 

move.b #LongNull,dO 

move.b dO, (al) + 

subq.l #l,d6 

beq CrunEnd 

move.w dl,d0 

lsr.w #8,d0 

move.b dO, (al) + 

subq.l #l,d6 

beq CrunEnd 

move.b dl, (al) + 

subq.l #l,d6 

beq CrunEnd 

bra \CHAnf 



;too large for a Byte 



;too large, must be Word 



;Null sequence with Byte 



; other sequence 



\AF1: 



\AF2: 



bsr \NoResult 

bsr CounterBytes 

cmp.w #$4 0,dl 

bcc \AF2 

ori.b #ShrtNorm,dl 

move.b dl, (al) + 

subq.l #l,d6 

beq CrunEnd 

bra \AF4 

cmp.w #$1000, dl 

bcc \AF3 

move.w dl,d0 

lsr.w #8,d0 

ori.b #MiddleNorm, dO 

move.b dO, (al) + 
subq.l #l,d6 
beq CrunEnd 
move.b dl, (al) + 
subq.l #l,d6 



;too large for a Byte 



;too large, must be Word 



;any sequence 
; Byte 
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\AF3: 



\AF4: 



beq CrunEnd 
bra \AF4 

move.b #LongNorm, dO 
move.b dO, <al) + 
subq.l #l,d6 
beq CrunEnd 
move.w dl,dO 
lsr.w #8,d0 
move.b dO, (al) + 
subq.l #l,d6 
beq CrunEnd 
move.b dl, (al) + 
subq.l #l,d6 
beq CrunEnd 
move.b d4,d0 
move.b dO, (al)+ 
subq.l #l,d6 
beq CrunEnd 
bra \CHAnf 



; store other Byte 



/found no sequence 

\NoResult2: move.w #l,Subtr 
bra \KF20 

\NoResult: clr.w Subtr 

\KF20: move.l a0,a4 
sub.l a2,a4 
move.w a4,dl 
beq \KFEnd 
swap dl 
move.w a4,dl 
cmp.w #$40, dl 
bcc \CH5 

ori.b #ShrtNone,dl 
move.b dl, <al)+ 
subq.l #l,d6 
beq CrunEnd2 
bra \CH6 

\CH5: cmp.w #$1000, dl 

bcc \CH7 
move.w dl,d0 
lsr.w #8,d0 
ori.b #MiddleNone,d0 
move.b dO, (al) + 
subq.l #l,d6 
beq CrunEnd2 
move.b dl, (al) + 
subq.l #l,d6 
beq CrunEnd2 
bra \CH6 

\CH7: move.b #LongNone,D0 

move.b dO, (al) + 
subq.l #l,d6 
beq CrunEnd2 
move.w dl,d0 
lsr.w #8, dO 
move.b dO, (al) + 



;See CrunEnd2 



;too large for a Byte 



;too large, must be Word 
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\CH6: 



\CH9: 
\CH8: 
\KFEnd: 



subq.l #l,d6 

beq CrunEnd2 

move.b dl, (al) + 

subq.l #l,d6 

beq CrunEnd2 

swap dl 

andi.l #$ffff,dl 

sub.l dl,d6 

beq CrunEnd2 

bcs CrunEnd2 

bra \CH8 

move.b (a2)+, (al) + 

dbf dl,\CH9 

clr.w Subtr 

rts 



;See CrunEnd2 



\EraseBlock: 

move.w d3,d0 
andi.w #$fe00,d0 
cmp.w d0,d3 
bne \LBEnd2 
move.l a0,a3 
move.w #$7e,d5 
move.l (a0)+,d4 
move.l d4,d0 
andi.l #$f f000000,d0 
cmp.l #$44000000, dO 
bne \LBNone 

\LB1: addq.b #l,d4 

cmp.l (a0)+,d4 

bne \LBNone 

dbf d5,\LBl 

bsr \NoResult2 

move.b #EmptyBloc)c,d0 

move.b dO, (al)+ 

subq.l #l,d6 

beq CrunEnd2 

clr.w dO 

subi.w #$200, d3 

bne \LBEnd 

move.w #-l,d7 

bra \LBEnd 

\LBNone: move.l a3,a0 

\LBEnd2: move.w #-l,d0 

\LBEnd: rts 



;Ok-Message 



;End mark 



CounterBytes : 
\ZB2: 



\ZB1: 



clr.w dl 
cmp.b (a0)+,d4 
bne \ZB1 
addq.w #l,dl 
subq.w #l,d3 
bne \ZB2 
move.w #-l,d7 

subq.l #l,a0 
rts 



;End mark 
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CrunEnd2 : 
\CE1: 

CrunEnd: 



move.w Subtr,d2 
adda.l #$4,a7 
dbf d2,\CEl 

movem.l <a7)+,d2-d7/a2/a4 

move.l #-l,dO 

rts 



/bring Track to normal size 

;>= AO = Pointer to crunched Track 

/>= Al = Pointer to destination address 



DeCrunch: 



\DCEnd: 



move.b (aO)+,dO 
tst.b dO 
beq \DCEnd 
move.b dO,dl 
andi.b #$cO,dl 
bne Shrt 
move.b dO,dl 
andi.b #$30, dl 
bne Middle 
move.b d0,dl 
cmpi.b #EmptyBlock,dl 
beq \BlockClear 
move.b (a0)+,d0 
lsl.w #8,d0 
move.b (a0)+,d0 
cmpi.b #LongNull,dl 
beq \NullLong 
cmpi.b #LongNorm,dl 
beq \NormLong 
cmpi.b #LongNone,dl 
beq \UndefLong 

move.l $4,a6 

sub.l a5,a5 

move.l #$12345678, d7 

jsr -108 <a6) 

rts 



;End mark 



; empty Block 
\BlockClear: 

\LB1: 



/Long 

\LA1: 
\UndefLong: 



move.w #$7f,dl 
move.l #$444F5300,dO 
move.l dO, (al) + 
addq.b #l,d0 
dbf dl,\LBl 
bra DeCrunch 



move.b (a0)+, (al) + 
dbf dO,\LAl 
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bra DeCrunch 


\NullLong: 


move.b Shrtbyte,dl 




bra \LA2 


\NormLong: 


move.b (aO)+,dl 




bra \LA2 


\LA3: 


move.b dl, (al)+ 


\LA2: 


dbf dO,\LA3 




bra DeCrunch 



Shrt: 



Middle : 



cmpi.b #ShrtNull,dl 
beq \K01 

cmpi.b #ShrtNorm,dl 
beq \KU2 



/ShrtUndeff 






andi.w #$3f,d0 




bra \K03 


\K04: 


move.b (a0)+, (al) + 


\KU3: 


dbf dO,\KU4 




bra DeCrunch 


\K01: 


move.b Shrtbyte,dl 




bra \K05 


\K02: 


move.b (aO)+,dl 


\KU5: 


andi.w #$003f,d0 




bra \K06 


\KU7: 


move.b dl, (al) + 


\KU6: 


dbf dO,\Ku7 




bra DeCrunch 



;MiddleUndeff 

\KU4: 
\KU3: 

\KU1: 

\KU2: 

\KU7: 
\KU6: 



andi.w #$0f,d0 

lsl.w #8, dO 

move.b (aO)+,dO 

cmpi.b #MiddleNull,dl 

beq \K01 

cmpi.b #MiddleNorm, dl 

beq \KU2 

bra \KU3 

move.b (aO) +, (al) + 

dbf dO,\KU4 

bra DeCrunch 

move.b Shrtbyte,dl 

bra \KU6 

move.b (aO)+,dl 

bra \KU6 

move.b dl, (al)+ 

dbf dO,\Ku7 

bra DeCrunch 



beg: 



move.w #$0008, $dff 09a 



move.l gfxbase,a6 
lea bitmap, aO 
move.b #l,d0 
move.w #320, dl 
move.w #200, d2 



;PAL uses 256 
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jsr InitBitMap(a6) 
move.l bit_adress,planel 
move.l bit_adress,dl 
move.w dl,plane_lo 
swap dl 
move.w dl,plane_hi 

lea rastport,al 

jsr InitRastPort (a6) 

move . 1 #bitmap , r_bitmap 

move.l #ncopper,aO 
move.l cop_adress,al 
move.l #copsize,dO 
copy_loop: 

move.b (aO) +, (al) + 



dbf 



dO,copy_loop 



bsr adresses 

move.l cl_adress, flash adres 



move.l bit_adress,aO 
move.w #$27ff,d0 
clear_loop: 

clr.b (a0)+ 



dbf 



dO,clear_loop 



move.l gfxbase,aO 
move.w #$0080, $dff 096 
move.l $6c,oldirq 
move.l tnewlrq, $6c 
move.l 50 (aO) ,oldcopper 
move.l cop_adress,50(a0) 
move.w #$82b0,$dff096 

new_start: 

move.w #7,xl 
move.w #54, yl 
move.b #$4f,lc 
move.b #$00, fc 
move.b #$03, tr 
move.b #$00, ws 
move.b #$01, vd 
move.b #$01, fa 
move.b #$00, del 
move.b #$00,dc2 
move.b #$01, sd 
move.b #$00, dd 
move.b #$01, sy 
move.b #$00, new 
move.b #$00,pointerl 
move.b #$00,color_ptr 
move.b drives, dd 
bsr end_drive 
bsr show_lc 
move.l #textl,text_ptr 
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bsr 
bra 



set_title 
menu control 



exit: 



move.w #$8008, $dff 09a 
move.l gfxbase,aO 
move.w #$0080, $dff 096 
move.l oldirq, $6c 
move.l oldcopper, 50 (aO) 
move.w #$82b0,$dff096 



no_DPuf fer: 




move . 1 


ExecBase, a6 


move . 1 


cop adres s , al 


move . 1 


#copsize+2,d0 


jsr 


FreeMem(a6) 


no_copper : 




move . 1 


ExecBase, a6 


move . 1 


bit adres s,al 


move . 1 


#$2800, dO 


jsr 


FreeMem(a6) 


no_bitmap: 




move . 1 


ExecBase, a6 


move . 1 


gfxbase, al 


jsr 


CloseLibrary (a6) 


no_gfxbase: 




clr.l 


dO 


rts 




newlrq: 




move 


SR,-(a7) 


movem . . 


1 a0-a6/d0-d7,-(a7) 


addq . b 


#1, waiting 


cmp.b 


#2, waiting 


ble 


endirq 


clr.b 


waiting 


move . 1 


f lash_adress, a2 


cmpl.b 


#$00,color_ptr 


bne.s 


irq_flash 


move . w 


#$00ee, (a2) 


bra.s 


endirq 



irq_flash: 

cmpi.b #$00, back 

beq . s upward 
downward: 

subi.w #$0011, <a2) 

cmpi.w #$0044, (a2) 

bcc . s endirq 

move.b #$00, back 

bra.s endirq 
upward: addi.w #$0011, <a2) 

cmpi.w #$00ff, (a2) 

bcs.s endirq 

move.b #$01, back 
endirq: movem. 1 (a7) +,a0-a6/d0-d7 

move (a7)+,SR 

dew $4ef9 
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oldirq: del 

menu_control : 

bsr wait_key 

cmpi.b #$46, dO 

beq destination_drive 

cmpi.b #$50, dO 

beq start_copy 

cmpi.b #$51, dO 

beq first_cylinder 

cmpi.b #$52, dO 

beq last_cylinder 

cmpi.b #$53, dO 

beq how_many_tries 

cmpi.b #$54, dO 

beq write_serveral_times 

cmpi.b #$55, dO 

beq verify_destination 

cmpi.b #$56, dO 

beq fast_copy 

cmpi.b #$57, dO 

beq deepcopy_l 

cmpi.b #$58, dO 

beq deepcopy_2 

cmpi.b #$59, dO 

beq source_drive 

cmpi.b #$21, dO 

beq synccorrection 

bra.s menu_control 
start_copy: 

move.l c2_adress, flash_adress 

move.b #$01,color_ptr 

bsr show_start 
start_copy2 : 

bsr wait_key 

cmpi.b #$45, dO 

beq new_start 

cmpi.b #$4 4, dO /Return 

beq . s end_start 

cmpi.b #$43, dO 

bne.s start_copy2 
end_start: 

move.b #$00,color_ptr 

move.w #28, yl 

bsr cl2 

move.w #10, dO 
estlop: bsr Timer 

dbf dO, estlop 

bsr clear_eol 

bsr copy_start ; Copy-Routine 

cmp.w #Escape, ErrorFlag 

beq new_start 

cmp.w #diskprotect, error flag 

beq start_copy 

cmp.w #NoDisk,errorflag 

beq start_copy 
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cmp.w #NotProtect,ErrorFlag 

beq . s st art_copy 

bsr oil 
esdl: bsr waitjcey 

cmpi.b #$40, dO 

bne.s esdl 
esd2 : bra new start 



destination drive: 




move . 1 cl3_adress, f lash_ 


adress 


move.b #$01,color_ptr 




destinationl : 




bsr wait_key 




cmpi.b #$0a,d0 




beq.s d_drive0 




cmpi.b #$01, dO 




beq.s d_drivel 




cmpi.b #$02, dO 




beq d_drive2 




cmpi.b #$03, dO 




beq d_drive3 




cmpi.b #$43, dO 




beq.s end_destination 




cmpi.b #$44, dO 




bne.s destinationl 




end_destination : 




cmpi.b #$00, dd 




beq.s destinationl 




move.b #$00,color_ptr 




bra menu_control 




d_drive0 : 




btst #0, drives 




beq end_drive 




btst #0,dd 




beq . s dd0_0 




bclr #0,dd 





bra . s dd0_l 
dd0_0: bset #0,dd 

move.b #l,drv 
ddO 1: bra end drive 



d_d] 


:ive 


1: 
btst 


#1, drives 






beq end_drive 






btst 


#l,dd 






beq.s 


ddl 






bclr 


#l,dd 






bra.s 


ddl 1 


ddl_ 


0: 


bset 


#l,dd 






move.b 


#2,drv 


ddl 


.1: 


bra.s 


end_drive 


d_drive2 : 








btst 


#2, drives 






beq.s 


end drive 






btst 


#2,dd 
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beq.s 


dd2_0 




bclr 


#2,dd 




bra.s 


dd2 1 


dd2_0 : 


bset 


#2,dd 




move.b 


#4,drv 


dd2_l : 


bra.s 


end_drive 


d_drive3 : 






btst 


#3, drives 




beq.s 


end drive 




btst 


#3,dd 




beq.s 


dd3 




bclr 


#3,dd 




bra.s 


end drive 


dd3_0 : 


bset 


#3,dd 




move . b 


#8,drv 


end_drive : 






cmpi.b 


#$01, del 




bne.s 


stl 




bra.s 


st2 


stl: 


cmpi . b 


#$01,dc2 




bne stevel 


st2: 


move . b 


drv, dd 




bra steve 


stevel : 


btst 


#0,sd 




beq.s 


stel 




andi . b 


#$0e,dd 




cmpi.b 


#$00, dd 




bne.s 


steve 




bset 


#0,dd 




bra.s 


steve 


stel: 


btst 


#l,sd 




beq.s 


ste2 




andl.b 


#$0d,dd 




cmpi . b 


#$00, dd 




bne.s 


steve 




bset 


#l,dd 




bra.s 


steve 


ste2: 


btst 


#2,sd 




beq.s 


ste3 




andi . b 


#$0b,dd 




cmpi.b 


#$00, dd 




bne.s 


steve 




bset 


#2,dd 




bra. s 


steve 


ste3: 


btst 


#3,sd 




beq.s 


steve 




andi . b 


#$07, dd 




cmpi.b 


#$00, dd 




bne.s 


steve 




bset 


#3,dd 


steve : 


btst 


#0,dd 




bne.s 


end_ddl 




lea 


of f_text,a0 




bra.s 


end_dd2 


end_ddl 


:lea 


on_text2,a0 
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end_dd2:bsr 


set driveO 


btst 


#l,dd 


bne. 


s end_dd3 


lea 


off_text,aO 


bra. 


s end_dd4 


end_dd3 : lea 


on_text2,a0 


end_dd4 :bsr 


set drivel 


btst 


#2,dd 


bne. 


s end_dd5 


lea 


off_text,aO 


bra. 


s end_dd6 


end_dd5 : lea 


on_text2,a0 


end_dd6:bsr 


set_drive2 


btst 


#3,dd 


bne. 


s end_dd7 


lea 


off_text,aO 


bra. 


s end_dd8 


end_dd7 : lea 


on_text2,a0 


end_dd8:bsr 


set_drive3 


cmpi 


.b #$00,pointerl 


bne. 


s end_dd9 


move 


•b #$01,pointerl 


rts 




end dd9:bra 


destination! 



set_driveO : 

move.l gfxbase,a6 

lea rastport,al 

move.w #61, dO 

move.w #190, dl ;PAL 213 

jsr Movee(a6) 

bra . s set_text 
set_drivel : 

move.l gfxbase,a6 

lea rastport,al 

move.w #126, dO 



move . w 


#190, dl 


;PAL 


213 


jsr 


Movee (a6) 






bra.s 


set_text 






set drive2 : 








move . 1 


gfxbase, a6 






lea 


rastport,al 






move . w 


#190, dO 






move . w 


#190, dl 


;PAL 


213 


jsr 


Movee (a6) 






bra.s 


set_text 






set_drive3 : 








move . 1 


gfxbase, a6 






lea 


rastport,al 






move . w 


#254, dO 






move . w 


#190, dl 


;PAL 


213 


jsr 


Movee (a6) 






set_text : 








lea 


rastport,al 






move . w 


#$0003, dO 






jsr 


Text out (a6) 
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rts 

first_cy Under : 

move . 1 c3_adress , f lash_adress 

move.b #$01,color_ptr 

bsr wait_key 

cmpi.b #$4f,d0 

beq.s fc_down 

cmpi.b #$4e,d0 

beq.s fc_up 

cmpi.b #$43, dO 

beq compare_fc 

cmpi.b #$44, dO 

bne . s f irst_cylinder 
compare_f c : 

move.b lc,dO 

cmp.b fc,dO 

beq compare fc2 





bit . s f irst_cylinder 


compare 


_f c2 : 




move.b #$00,color_ptr 




bra menu_control 


fc_down 


:subi.b #$01, fc 




cmpi.b #$ff,fc 




bne . s f c_down2 




move.b #$00, fc 


f c_down2 : 




bra show_fc 


f c_up : 


addi.b #$01, fc 




cmpi.b #$52, fc 




bn e . s f c_down 2 




move.b #$51, fc 


show_fc 


: lea f c_text , aO 




move.b fc,d0 




bsr byte_calculate 




move . 1 gf xbase, a 6 




lea rastport,al 




move.w #295,d0 




move.w #64, dl 




jsr Movee(a6) 




lea rastport,al 




lea fc_text,a0 




move.w #$0002, dO 




jsr Textout(a6) 




bra first_cylinder 



last_cylinder : 

move.l c4_adress, flash_adress 

move.b #$01, color_ptr 

bsr wait_key 

cmpi.b #$4f,d0 

beq.s lc_down 

cmpi.b #$4e,d0 

beq.s lc_up 

cmpi.b #$43, dO 

beq compare_lc 
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cmpi.b #$44, dO 

bne . s last_cylinder 



compare_lc: 

move.b fc,dO 

cmp.b lc,dO 

beq compare_lc2 



bge . s last_cylinder 




compare_lc2 : 




move.b #$00,color_ptr 




bra menu_control 




lc_down : subi . b #$01, lc 




cmpi.b #$ff,lc 




bne . s lc_down2 




move.b #$00, lc 




lc_down2 : 




bra lcc 




lc_up: addi.b #$01, lc 




cmpi.b #$52, lc 




bne . s lc_down2 




move.b #$51, lc 




lcc: bsr.s show_lc 




bra last_cylinder 




show_lc : lea lc_text , aO 




move.b lc,d0 




bsr byte_calculate 




move . 1 gf xbase, a 6 




lea rastport,al 




move.w #295,d0 




move.w #74, dl 




jsr Movee(a6) 




lea rastport,al 




lea lc_text,aO 




move.w #$0002, dO 




jsr Textout(a6) 




rts 




how_many_tries : 




move . 1 c5_adress, f lash_ 


adress 


move.b #$01,color_ptr 




triesl: lea tr_text,a0 




bsr wait_key 




cmpi.b #$4e,d0 




beq.s tries_up 





cmpi.b #$4f,d0 
beq.s tries_down 
cmpi.b #$43, dO 
beq.s end_tries 
cmpi.b #$44, dO 
bne.s triesl 

end_tries: 

move.b #$00,color_ptr 
bra menu_control 

tries_up: 

addi.b #$01, tr 
cmpi.b #$0a,tr 
bne.s tries_up2 
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move.b #$09, tr 

tries_up2: 

move.b tr.dO 
addi.w #$30, dO 
move.b dO, (aO) 
bra.s tries2 

tries_down: 

subi.b #$01, tr 
cmpi.b #$00, tr 
bne.s tries_down2 
move.b #$01, tr 

trles_down2 : 

move.b tr,d0 
addi.w #$30, dO 
move.b dO, (aO) 

tries2: move.l gfxbase,a6 
lea rastport,al 
move.w #303, dO 
move.w #84, dl 
jsr Movee(a6) 
lea rastport,al 
lea tr_text,aO 
move.w #$0001, dO 
jsr Textout (a6) 
bra triesl 



synccorrection : 






move . 1 


cl2_adress, flash_adres 




move . b 


#$01,color_ptr 




cmpi . b 


#$01, sy 




bne.s 


sync2 




clr .b 


sy 




lea 


off_text,a0 




bra.s 


sync3 


sync2 : 


move . b 


#$01, sy 




lea 


on_text,a0 


sync3: 


lea 


rastport,al 




move . w 


#287, dO 




move . w 


#157, dl 




jsr 


Movee (a6) 




lea 


rastport,al 




move . w 


#3,d0 




jsr 


Textout (a6) 




move . b 


#$00, color ptr 




bra menu control 



write_serveral_times : 

move.l c6_adress, flash_adress 

move.b #$01,color_ptr 

move.b sd,d0 

cmp.b dd,d0 

bne wait_return 

cmpi.b #$00, ws 

bne.s write_s2 
write_sl: 

move.b #$01, ws 
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lea 




on_text,aO 




bra.i 


3 


end_write_serv 


write_ 


_s2: 








move 


.b 


#$00, ws 




lea 




off text,a0 


end_write_serveral : 




move 


.1 


gf xbase, a6 




lea 




rastport, al 




move 


.w 


#287, dO 




move 


,w 


#94, dl 




jsr 




Movee (a6) 




lea 




rastport, al 




move 


.w 


#$0003, dO 




jsr 




Textout (a6) 


esw: 


move 


.b 


#$00,color_ptr 




bra 


menu control 



verif y_destination : 

move.b dcl,d0 

or.b dc2,d0 

tst.b dO 

bne menu_control 

move . 1 c7_adress, f lash_adress 

move.b #$01,color_ptr 

cmpi.b #$00, vd 

bne . s verif y_d2 
verif y_dl: 

move.b #$01, vd 

lea on_text,a0 

bra.s end_verify 
verify_d2: 

move.b #$00, vd 

lea off_text,a0 
end_verify: 

bsr verify_d3 

bra menu_control 
verif y_off: 

move.b #$00, vd 

lea off_text,a0 
verif y_d3: 

move.l gf xbase, a6 

lea rastport, al 

move.w #287, dO 

move.w #104, dl 

jsr Movee (a6) 

lea rastport, al 

move.w #$0003, dO 

jsr Textout (a6) 

move.b #$00,color_ptr 

rts 

fast_copy: 

move . 1 c8_adress, f lash_adress 
move.b #$01,color_ptr 
cmpi.b #$01, dd 
beq.s fcopl 
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cmpi.b #$02, dd 

beq.s fcopl 

cmpi.b #$04, dd 

beq.s fcopl 

cmpi.b #$08, dd 

beq.s fcopl 

bra wait_return 
fcopl: cmpi.b #$01, fa 

bne.s fastcopyl 

move.b #$00, fa 

move.b #$01, del 

move.b #$00,dc2 

bra . s end_f ast 
fastcopyl : 

move.b #$01, fa 

move.b #$00, del 

move.b #$00,dc2 
end_f ast : 

cmp.b #0N,DC1 

bne fcop2 

bsr verify_off 
f cop2 : bsr show_copies 

move.b #$00,color_ptr 

bra menu_control 

deepcopy_l : 

bsr verify_off 

move . 1 c 9_adr e s s , f la s h_adr e s s 

move.b #$01,color_ptr 

cmpi.b #$01, dd 

beq . s deep4 

cmpi.b #$02, dd 

beq . s deep4 

cmpi.b #$04, dd 

beq.s deep4 

cmpi.b #$08, dd 

beq.s deep4 

bra . s wait_return 
deep4: cmpi.b #$00, del 

beq.s deepl 

move.b #$00, fa 

move.b #$00, del 

move.b #$01,dc2 

bra . s end_deepl 
deepl: move.b #$00, fa 

move.b #$01, del 

move.b #$00,dc2 
end_deepl : 

bra end_fast 

wait_return: 

move.l #textl2,text_ptr 

move.w #16, xl 

move.w #28, yl 

bsr set_text3 
wait_r3:bsr wait_key 
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cmpi . b 


#$44, dO 




beq.s 


wait r2 




cmpi . b 


#$43, dO 




bne.s 


wait_return 




wait_r2 : 






bsr 


BegText 




bra 


end_fast 




wait_r4 :bsr 


wait key 




cmpi.b 


#$45, dO 




beq.s 


wait r5 




cmpi.b 


#$44, dO 




beq 


\W1 




cmpi . b 


#$43, dO 




beq 


\W1 




cmpi . b 


#$40, dO 




bne.s 


wait_r4 




\W1 : move . 1 


d0,-(a7) 




bsr 


clear eol 




move . 1 


(a7)+,d0 




clr.l 


dO 




rts 






wait_r 5 : move . 1 


#-l,d0 




move.w 


♦Escape, ErrorFlag 




rts 






deepcopy_2 : 






bsr 


verify_off 




move . 1 


clO_adress, flash_adre 


ss 


move . b 


#$01, color ptr 




cmpi . b 


#$01, dd 




beq.s 


deep3 




cmpi . b 


#$02, dd 




beq.s 


deep3 




cmpi . b 


#$04, dd 




beq.s 


deep3 




cmpi . b 


#$08, dd 




beq.s 


deep3 




bra 


wait return 




deep3 : cmpi . b 


#$01,dc2 




beq. s 


deep2 




move.b 


#$00, fa 




move.b 


#$00, del 




move . b 


#$01,dc2 




bra.s 


end deep2 




deep? : move . b 


#$01, fa 




move . b 


#$00, del 




move . b 


#$00,dc2 




end deep2: 






bra 


end_fast 




show_copies : 






move . 1 


gfxbase, a6 




lea 


rastport,al 




move . w 


#287, dO 




move . w 


#114, dl 




jsr 


Movee (a6) 




lea 


rastport,al 
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cmpi . b 
beq.s 
lea 
bra.s 
showl : lea 
show2 : move.w 
jsr 
lea 

move . w 
move . w 
jsr 
lea 

cmpi.b 
beq.s 
lea 
bra.s 
show3 : lea 
shows : move . w 
jsr 
lea 

move . w 
move . w 
jsr 
lea 

cmpi.b 
beq.s 
lea 
bra.s 
show5 : lea 
show6: move.w 
jsr 
rts 



#$00, fa 

showl 

on_text , aO 

show2 

of f_text,a0 

#$0003, dO 

Textout (a6) 

rastport,al 

#287, dO 

#124, dl 

Movee (a6) 

rastport,al 

#$00, del 

show3 

on_text,a0 

show4 

off_text,a0 

#$0003, dO 

Textout <a6) 

rastport,al 

#287, dO 

#134, dl 

Movee (a6) 

rastport,al 

#$00,dc2 

showS 

on_text,a0 

show6 

off_text,a0 

#$0003, dO 

Textout (a6) 



source_drive: 
move . 1 
move . b 

sourcel: 

bsr 

cmpi . b 
beq.s 
cmpi . b 
beq.s 
cmpi . b 
beq 
cmpi . b 
beq 
cmpi . b 
beq.s 
cmpi . b 
bne.s 

source2 :move.b 
clr.b 
bsr 

move . b 
move . b 
bra 



cll_adress, flash_adress 
#$01,color_ptr 

wait_key 

#$0a,d0 

s_drive0 

#$01, dO 

s_drivel 

#$02, dO 

s_drive2 

#$03, dO 

s_drive3 

#$43, dO 

source2 

#$44, dO 

sourcel 

pointer l,d7 

pointerl 

end_drive 

d7, pointerl 

#$00,color_ptr 

menu control 
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s_driveO : 




btst #$00, drives 




beq sourcel 


s_ddO : 


move.b #$01, sd 




move.b #$00, dO 




bra set s drive 


s_drivel: 




btst #$01, drives 




beq sourcel 


s_ddl : 


move.b #$02, sd 




move.b #$'01, dO 




bra set s drive 


s_drive2 : 




btst #$02, drives 




beq sourcel 


s_dd2 : 


move.b #$04, sd 




move.b #$02, dO 




bra.s set s drive 


s_drive3 : 




btst #$03, drives 




beq sourcel 




move.b #$08, sd 


s_dd3 : 


move.b #$03, dO 


set_s_ 


drive : 




lea sd text,a0 




addi.b #$30, dO 




move.b dO, (aO) 




move.l gfxbase,a6 




lea rastport,al 




move.w #303, dO 




move.w #144, dl 




jsr movee(a6) 




lea rastport,al 




move.w #$0001, dO 




jsr Textout(a6) 




bra sourcel 


byte_calculate : 




cmpi.w #$0a,d0 




bmi . s byte2 




divu #$0a,d0 




move.w d0,dl 




addi.w #$30, dl 




swap dO 




bra.s byte3 


byte2 • 


move.w #$0030, dl 


byte3 


move.b dl, (aO) + 




addi.w #$0030, dO 




move.b dO, (a0) + 




rts 


adresses: 




move.l cop_adress,d0 




move.l #colorl,dl 




move.l #ncopper,d2 




sub.l d2,dl 




add.l dl,d0 
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move . 1 


dO,cl adress 


addi.l 


#$000010, dO 


move . 1 


d0,c2 adress 


addi . 1 


#$000008, dO 


move . 1 


d0,c3_adress 


addi.l 


#$000008, dO 


move . 1 


d0,c4_adress 


addi.l 


#$000008, dO 


move . 1 


d0,c5_adress 


addi . 1 


#$000008, dO 


move . 1 


d0,c6_adress 


addi . 1 


#$000008, dO 


move . 1 


d0,c7_adress 


addi.l 


#$000008, dO 


move . 1 


d0,c8_adress 


addi.l 


#$000008, dO 


move . 1 


d0,c9_adress 


addi . 1 


#$000008, dO 


move . 1 


d0,cl0 adress 


addi.l 


#$000008, dO 


move . 1 


d0,cll adress 


addi . 1 


#$000008, dO 


move . 1 


d0,cl2_adress 


addi.l 


#$000010, dO 


move . 1 


d0,cl3_adress 


rts 




set_title: 




clr.l 


d6 


move . w 


#$0009, d6 


set_textl: 




move . 1 


gfxbase,a6 


bsr 


set_text2 


addi . 1 


#$000026, textjptr 


addi . w 


#$000a,yl 


dbf 


d6, set_textl 


lea 


floppy, aO 


move . 1 


bit_adress,al 


add.l 


#$001c26,al 


move . 1 


al,a2 


bsr.s 


box 


lea 


floppy, aO 


move . 1 


al,a2 


add.l 


#$000008, a2 


bsr.s 


box 


lea 


floppy, aO 


move . 1 


al,a2 


add.l 


#$000010, a2 


bsr.s 


box 


lea 


floppy, aO 


move . 1 


al,a2 


add.l 


#$000018, a2 


bsr.s 


box 


bra.s 


set_work 


box: rts 


;1 


move . w 


#floppy_s,d0 ;< 



/Remove this rts for PAL systems 
/draws graphic disk drive onscreen 
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bit_copy_loop : 




move . b 


(a0)+, (a2) + 


move.b 


<a0)+, (a2) + 


move . b 


(a0)+, <a2) + 


move.b 


<a0)+, (a2) + 


move.b 


(a0)+, (a2) + 


move.b 


(a0)+, (a2) + 


add.l 


#$22, a2 


dbf 


dO, bit_copy_loop 


rts 




set_work : 




move . w 


#44, y2 


bsr 


draw line 


move.w 


#148, y2 


bsr 


draw line 


move . w 


#218, y2 


bsr 


draw_line 


move.w 


#250, y2 


bsr 


draw line 


move . w 


#160, y2 


bsr 


draw line 


move . w 


#157, yl 


move . 1 


#textll,text_ptr 


bsr 


set text2 


move . w 


#170, yl 


move . w 


#$0001, d2 


move . 1 


#text2,text_ptr 


set_loop2 : 




bsr 


set_text2 


addi.l 


#$000026, text ptr 


add! . w 


#$000a,yl 


dbf 


d2,set loop2 


move.w 


#$0001, d2 


move . 1 


#text3, text_ptr 


move . w 


#200, yl 


bsr 


set_text2; 


move . 1 


#text3a, text_ptr 


move . w 


#7,xl 


move . w 


#210, yl 


set_loop3 : 




bsr 


set_text2 


addi.w 


#$000f,yl 


addi.l 


#$00002 6, text jptr 


dbf 


d2,set_loop3 


lea 


rastport,al 


move . b 


#l,d0 


jsr 


SetAPen(a6) 


lea 


rastport,al 



;PAL uses 230 
; added to NTSC 
; added to NTSC 
;to position text 
;PAL uses 245 



move.w #10, dO 
move.w #10, dl 
move.w #309, d2 
move.w #40, d3 
jsr RectFill(a6) 
lea rastport,al 
move.b #0,d0 
jsr SetAPen(a6) 
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lea 


rastport,al 


raove.w 


#11, dO 


move.w 


#11, dl 


move . w 


#308, d2 



move.w #39, d3 
jsr RectFill(a6) 
lea rastport,al 
move.b #l,d0 
jsr SetAPen (a6) 
BegText : move .1 #text 4 , text_pt r 
move.w #16, xl 
move.w #18, yl 
bsr set_text3 
move.l #text20,text_ptr 
move.w #28, yl 
bsr set_text3 
move.l #text21,text_ptr 
move.w #38, yl 



bsr 
rts 



set text 3 



draw_line : 

lea rastport,al 
move.w #$0000, dO 
move.w y2,dl 
jsr Movee(a6) 
lea rastport,al 
move.w #$013f,d0 
move.w y2,dl 
jsr Draw(a6) 
rts 

set_text2 : 

move.l a6,-(a7) 
move.l gfxbase,a6 
lea rastport,al 
move.w xl,d0 
move.w yl,dl 



jsr 




Movee (a6) 


lea 




rastport,al 


move 


1 


text_ptr,a0 


move 


w 


#$0026, dO 


jsr 




Text out (a6) 


move 


1 


(a7)+,a6 


rts 






set_text3: 






move 


1 


a6,-(a7) 


move 


1 


gfxbase, a6 


lea 




rastport,al 


move 


w 


xl,d0 


move 


w 


yl,dl 


jsr 




Movee (a6) 


lea 




rastport,al 


move 


1 


text_ptr,a0 


move 


w 


#$0024, dO 
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jsr 


Textout <a6) 




move . 1 


<a7)+,a6 




rts 




show_ 


start: 






lea 


text6,a0 




btst 


#0,dd 




bne 


show_sl 




btst 


#0,sd 




beq.s 


show_startl 


shoW_ 


si: lea 


dfO,al 




bsr 


copy_drives 


show_ 


startl: 






btst 


#l,dd 




bne.s 


show s2 




btst 


#l,sd 




beq.s 


show_start2 


show_ 


s2 : lea 


dfl,al 




bsr 


copy_drives 


show_ 


_st art 2 : 






btst 


#2,dd 




bne.s 


show s3 




btst 


#2,sd 




beq.s 


show start3 


show_ 


s3:lea 


df2,al 




bsr.s 


copy_drives 


show_ 


_st art 3 : 






btst 


#3,dd 




bne.s 


show s4 




btst 


#3,sd 




beq.s 


show start 4 


show_ 


s4 :lea 


df3,al 




bsr.s 


copy_drives 


show_ 


start 4 : 






move.w 


#16, xl 




move.w 


#18, yl 




move.w 


#$002, d2 




move . 1 


#text5, text_ptr 


show_ 


loop: 






bsr 


set_text3 




addl.w 


#$000a,yl 




add! . 1 


#$000024, text_ptr 




dbf 


d2 , show_loop 




move.w 


#16, dO ~ 




lea 


text6,a0 


lop: 


move.b 


#$20, (a0) + 




dbf 


d0,lop 




rts 





copy_drives : 

move.w #$0003, dO 
copy_d_loop 



move.b (al)+, (a0)+ 
-"■'■' dO , copy_d_loop 



dbf 
rts 
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read_error : 




clr.l 


dO 


move . b 


cylinder, dO 


lea 


text7,a0 


add.l 


#$00001a,a0 


bsr 


byte_calculate 


move.b 


side,dO 


add.l 


#$000006, aO 


bsr 


byte calculate 


move . w 


#7,xl 


move.w 


#200, yl ;PAL uses 230 


move . 1 


#text7,text_ptr 


bra 


set_text2 


write_error : 




clr.l 


dO 


move.b 


cylinder, dO 


lea 


texts, aO 


add.l 


#$00001b,a0 


bsr 


byte_calculate 


move . b 


side, dO 


add.l 


#$000006, aO 


bsr 


byte calculate 


move . w 


#7,xl 


move . w 


#200, yl ;PAL uses 230 


move . 1 


#text8,text_ptr 


bra 


set_text2 


clear_error : 




move . 1 


#text3, text ptr 



move.w #7,xl 

move.w #200, yl ;PAL uses 230 

bra set_text2 

move.l #text3a,text_ptr /added to NTSC 

move.w #7,xl ;to position text 

move.w #210, yl ; (PAL uses 245) 

bra set_text2 ;on the screen 

reading_cyl : 

clr . 1 dO 

move.b cylinder, dO 

lea rcyl_text,a0 

bsr byte_calculate 

lea rcyl_text,a0 

move.l gfxbase,a6 

lea rastport , al 

move.w #127, dO 

move.w #210, dl ;PALS uses 245 

jsr Movee (a6) 

lea rastport, al 

move.w #$0002, dO 

jsr Textout(a6) 

rts 
writing_cyl: 

clr.l dO 

move.b cylinder, dO 

lea wcyl_text,a0 

bsr byte calculate 
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lea wcyl_text,aO 

move.l gfxbase,a6 

lea rastport,al 

move.w #271, dO 

move.w #210, dl ;PAL uses 245 

jsr Movee(a6) 

lea rastport,al 

move.w #$0002, dO 

jsr Textout(a6) 

rts 

insert_souroe : 

move.l #text9,text_ptr 

bra.s melvln 
insert_destinatlon : 

move.l #textlO,text_ptr 

bra . s melvln 
protect_source : 

bsr cl 

move.l #textl3,text_ptr 

bra.s melvin 
protect_destination : 

bsr cl 

move.l #textl4,text_ptr 
melvin: 





move . w 


#16, xl 






move . w 


#28, yl 






bsr 


set_text3 






move . 1 


#text5, text_ptr 




move . w 


#18, yl 






bsr 


set_text3 






bra 


wait_r4 




clear_ 


eol: 








move . 1 


#textl5,text_ptr 




move.w 


#16, xl 






move . w 


#28, yl 






bsr 


set text 3 






move . w 


#18, yl 






bra 


set_text3 




write_ 


_b_again : 




/Check wrii 




bsr cl 






move . 1 


#textl7,text_ptr 




move . w 


#16, xl 






move . w 


#28, yl 






bsr 


set_text3 




wbal: 


bsr 


wait key 






cmpi . b 


#$45, dO 


/check esc 




beq.s 


wba4 






cmpl . b 


#$15, dO 


/German ke; 




beq.s 


wba2 






cmpi.b 


#$36, dO 


/ check n 




bne.s 


wbal 






move . 1 


#-l,d0 






bra.s 


wba3 




wba2: 


clr.l 


dO 





use 31 y and z reversed 
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wba3: 


move . 1 


d0,-(a7) 




bsr 


clear_eol 




move . 1 


(a7)+,d0 




rts 




wba4: 


move.w 
rts 


♦escape, err or flag 


compare 


_drives 






move . w 


#18, yl 




bsr 


cl2 




lea 


textl9,a0 




clr .w 


d2 


cdll: 


lea 


dfO,al 




btst 


d2,vererrflag 




beq.s 


cdl4 




move.w 


d2,d0 




lsl 


#2, dO 




add.l 


dO,al 




bsr.s 


cdl2 


cdl4: 


addq.w 


#l,d2 




cmpi . w 


#4,d2 




bne.s 


cdll 




move . 1 


#textl8,text_ptr 




move . w 


#28, yl 




bra 


set_text3 


cdl2: 


move . w 


#3,dl 


cdl3: 


move . b 


(al)+, (a0) + 




dbf 


dl,cdl3 




rts 




wait_key : 






movem . . 


L dl-d7,-(a7) 




move . w 


Keybrdclr,dl 


18: 


move . b 


IntCon,dO 




btst 


#7,dl 




bne 


11 




sub.l 


#l,Keybrdcnt 




beq 


Keybrepeat 


11: 


btst 


#3,d0 




beq 


18 




move . b 


Key,dO 




ori.b 


#$40,Cont 




not .b 


dO 




ror .b 


#l,dO 




move . w 


#$600, dl 


15: 


dbf 


dl,15 




and! . b 


#$bf,Cont 




move . 1 


#MaxWait , Cntwait 




move . 1 


#MaxWait , Keybrdcnt 




move . w 


dO,Keybrdclr 


Keybtdend: 






movem . ; 


L (a7)+,dl-d7 




rts 




Keybrepeat : 






move . 1 


Cntwait, dl 




cmp.l 


#MinWait,dl 
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bcs.s repeatl 
sub.l #$800, dl 
move.l dl,Cntwait 
repeatl : move. 1 dl,Keybrdcnt 
move.w Keybrdclr,dO 
bra . s Keybtdend 



get_key : 



move.w 


$dff01e,dl 


btst 


#3,dl 


beq 


Ml 


raove.b 


Key,d0 


ori.b 


#$40,Cont 


not .b 


dO 


ror .b 


#l,d0 


move . w 


#$600, dl 


\12: dbf 


dl,\12 


andi.b 


#$bf,Cont 


\11: rts 




cl : move . w 


#28, yl 


cl2: move.w 


#16, xl 


move . 1 


#textl5,text_ptr 


bsr 


set text 3 


addi . w 


#10, yl 


bsr 


set_text3 


rts 




ell: bsr.s 


cl 


move . w 


#18, yl 


bsr 


set text 3 


move.w 


#28, yl 


move . 1 


#text 1 6 , text jpt r 


bsr 


set_text3 


rts 




gf xname : 




dc.b 


'graphics . library", 


align 


.w 


gfxbase: 


del 


oldcopper : 


del 


bit_adress : 


del 


cop_adress : 


del 


cl_adress: 


del 


c2_adress: 


del 


c3 adress: 


del 


c4_adress: 


del 


c5_adress: 


del 


c6_adress: 


del 


c7_adress: 


del 


c8_adress: 


del 


c9 adress: 


del 


clO_adress: 


del 


cll_adress: 


del 


cl2 adress: 


del 
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cl3_adress: 


del 







rastport : 


blk.3 


. 1,0 




r_bitmap: 


blk.J 


. 24,0 




bitmap : 


blk.l 2,0 




planel : 


blk.l 8,0 




ncopper : 










dew 


$008e, $2681, $0090, $24cl 






dew 


$0092, $0038, $0094, $00d0 






dew 


$00e0 




plane_hi : 


dew 


$0000,$00e2 




plane_lo : 


dew 


$0000 






dew 


$0100, $1200, $0102, $0000, $0104, 


$0000 




dew 


$0108, $0000, $010a, $0000 






dew 


$0120, $0000, $0122, $0000 






dew 


$0180, $0000, $0182 




colorl: 


dew 


$00ee, $0d01, $f f fe, $0182 






dew 


$00ee, $5401, $f f fe, $0182 




color2 : 


dew 


$00ee, $6001, $f f fe, $0182 




color3: 


dew 


$00ee, $6a01, $f f fe, $0182 




color4 : 


dew 


$00ee, $7201, $f f fe, $0182 




color5: 


dew 


$00ee, $7d01, $f f fe, $0182 




color 6: 


dew 


$00ee, $8601, $f f fe, $0182 




color7: 


dew 


$00ee, $9001, $f f fe, $0182 




color8 : 


dew 


$00ee, $9a01, $f f fe, $0182 




color 9: 


dew 


$00ee,$a401,$fffe,$0182 




colorlO: 


dew 


$00ee,$af01,$fffe,$0182 




colorll: 


dew 


$00ee, $b701, $f f fe, $0182 




colorl2 : 


dew 


$00ee, $c501, $f f fe, $0182 






dew 


$00ee, $c701, $f f fe, $0182 




colorl3: 


dew 


$00ee, $f f 01, $f f fe, $0182 






dew 


$00ee,$ffff,$fffe 






dew 


$0000, $0000 





copend: 




copsize = copend - ncop 


drives : 


deb 


d_drives : 


deb 


s_drives : 


deb 


color_ptr: 


deb 


back: 


deb 


pointerl : 


deb 


cylinder : 


deb 


side: 


deb 


new: 


deb 


drv: 


deb 


align. w 




flash_adress: 


del 


text_ptr: 


del 


xl: 


dew 7 


yl: 


dew 54 


y2: 


dew 
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keybrdclr : 
cntwait : 
keybrdcnt : 

f c_text : 
ralf : 
lc_text : 
tr_text : 
sd_text : 
rcyl_text : 
wcyl_text : 
on_text : 
on_text2 : 
of f_text : 
dfO: 
dfl: 
df2: 
df3: 



dew 


$ffff 


del 


MaxWait 


del 


MaxWalt 


deb 


"00" 


deb 





deb 


"79" 


deb 


"0" 


deb 


"0" 


deb 


"00" 


deb 


"00" 


deb 


".ON" 


deb 


» ON" 


deb 


"OFF" 


deb 


"DFO " 


deb 


"DF1 " 


deb 


"DF2 " 


deb 


"DF3 " 



textl: deb "Fl = START COPY ■■ 

deb "F2 = FIRST CYLINDER (CRSR) 00" 

deb "F3 = LAST CYLINDER (CRSR) 79" 

deb "F4 = HOW MANY TRIES (CRSR) 3" 

deb "F5 = WRITE SEVERAL TIMES OFF" 

deb "F6 = VERIFY DESTINATION ON" 

deb "F7 = FASTCOPY ON" 

deb "F8 = DEEPCOPY 1 OFF" 

deb "F9 = DEEPCOPY 2 OFF" 

deb "F10 = SOURCE DRIVE (0/1/2/3) DFO" 

text2: deb "DEL = DESTINATION DRIVE (0/1/2/3) " 

deb " DFO: DF1: DF2: DF3: " 

text3: deb " STATUS: 00, OK, 00, 00 

text3a: deb " READING CYL. 00 / WRITING CYL. 00 
;text3a added for text positioning on NTSC systems 
text4: deb " AMIGA- COPY VI. 2 

text5: deb " (ESC) TERMINATES COPY 

deb "INSERT DISK(S) IN " 
text6: deb " " 

deb "PRESS RETURN OR ENTER WHEN READY !"!" 
text7: deb "STATUS: READ-ERROR ON CYL. 00 SIDE 00 " 
text8: deb "STATUS: WRITE-ERROR ON CYL. 00 SIDE 00 " 
text9: deb " PLEASE INSERT SOURCE DISK !! 

textlO: deb " PLEASE INSERT DESTINATION DISK ! " 

textll : deb " S - SYNCCORRECTION ON" 

textl2: deb " ONLY ONE DESTINATION !! 

textl3: deb " SOURCE DISK INSN'T WRITEPROTECTED. " 

textl4: deb "DESTINATION DISK IS WRITEPROTECTED. " 

textl5: deb " 

textl6: deb " COPY COMPLETE !! 

textl7: deb " WRITE BUFFER AGAIN ??? (Y/N) 

textl8: deb " ERROR ON DRIVE (S) " 

textl9: deb •• 

text20: deb " WRITTEN BY : 

text21: deb " R. GELFAND AND S. THUBEAUVILLE 

align. w 
floppy: 
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del $00000000, 
del $04000000, 
del $04ffffff, 
del $08801008, 
del $08800ff0, 
del $04ffffff, 

floppyend: 

; graphic of disk 

;Fast Copy 



$00000000, $00000000, $00000000, $000007f f , 
$002005ff,$ffffffa0,$05ffffff,$ffa00400, 
$f f200880, $00000110, $08800000, $01100880, 
$011008bf , $f OOf fdlO, $07a00000, $05e008bf , 
$01100a90, $00000110, $08800000, $01100480, 
$ff 200400, $00000020, $07f f f f f f , $f f eOOOOO, 



$ffffffe0 
$00000020 
$lff80110 
$f00ffdl0 
$00000120 
$00000000 



drive not used by NTSC system 



DecodeCnt : 

DecodeAdr : 

BlockAdr : 

FTestAdr: 

SectNum: 

BytesBefGap: 

Bytes AftGAp: 

FirstBlock: 

FirstBlockSp: 

SectBL: 

VerifyFlag: 

VerErrFlag: 

TNumBufferA: 

TNumBufferE 

BlockMessage: 



dew 
del 
dew 
del 
dew 
dew 
dew 
dew 
dew 
dew 
dew 
dew 



dew 
dew 
ds.w 11 



,• Counter for longwords to be decoded 

; Address where to decode 

; Offset in Block for decoding 

;Test address if Block already loaded 

;Counter for Sector number 

; Bytes before the Gap 

; Bytes after the Gap 

; Block number of the first Block 

; permanent memory for first Block 

;Sector counter for Sectors before Gap 

; indicates if read or Verify 

;Flag for Errors 

;Verify-Bit = 1 => Error 

; Track -Number memory 

/for ID-Copy (Start -Track) 

/Buffer for End number 

;of loaded Tracks 



/Cruncher 



Length : 
ShrtByte: 

TrackPointer: 

MemoryBeg : 

Memory Length: 

MemoryChip: 

LengthChip: 

FreeFlagCh: 

MemoryFast: 

LenghtFast : 

FreeFlagFa: 

Subtr: 

/Control 



dew $1600 
deb 

align. w 
ds.l 164 



del 
del 
del 
del 
dew 
del 
del 
dew 
dew 



/memory for Pointer to packed Tracks 
/memory beginning for crunching 
/memory length for Crunching 



/See CrunEnd2 



TrackBufferl: 

TrackBuffer2: 

TrackNumS: 

TrackNumD: 

TrackNum: 

Start Track: 

EndTrack 

MotorBits: 

MotorBitsS: 

MotorBitsD: 



del 
del 
dew 
dew 
dew 
dew 
dew 
deb 
deb 

















$F3 

$F3 



; first Track to be read 
/ last Track to be read 



deb $F3 
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Flag: 



dc.b $00 
align. w 



/indicates if Source or Dest. 



/Deep Copy 

Position: 

BitShifts: 

Sizel: 

Size2: 

SizePos: 

Searchln : 

NumWords : 

ErrorFlag: 

EndPos : 

BegPos : 

SLength: 

WriteAddrs: 

Offset: 

TrackBytes: 

CheckLength : 

LenghtDest: 

Syncwidth: 

SyncNum: 

CopyTryl : 

CopyTry2 : 

Blocks : 

SortBlocks: 

NumSortBlock : 

SyncWord: 

/Table for Syn 

/Sync = $4489 

SyncBase: 



del 
dew 
dew 
dew 
del 
dew 
dew 
dew 
del 
del 
dew 
del 
dew 
dew 
dew 
dew 
dew 
dew 
dew 
dew 
ds.l 



/For Search routine 

/number of Bits during shift 

/size of the largest Block 

/size of the second largest Block 

/Position of the largest Block 

/how many defective Words can there be 

/how many Words are compared 



/End position of Track 
/beginning of Track (after Gap) 
/number of Bytes to be written 
/Address from which writing starts 
/number bytes before Sync during writing 
/Bytes on the Track 
/Bytes on the Track (Controll) 
/Track length of Dest. -Disk 
/Distance from Index to Sync 
/number of Syncs found 
/Illegal Data, read how many times 
/how many times read for NoSync 
SortBlockNum /memory for Blocklength+SyncNum 
ds.l SortBlockNum /memory for Block sorting 
dew /number of different sorted Blocks 
dew $4489 /Value for reading 
c-Search 

del %01000100100010010000000000000000 
del %00100010010001001000000000000000 
del %00010001001000100100000000000000 
del %00001000100100010010000000000000 
del %00000100010010001001000000000000 
del %00000010001001000100100000000000 
del %00000001000100100010010000000000 
del %00000000100010010001001000000000 
del %00000000010001001000100100000000 
del %00000000001000100100010010000000 
del %00000000000100010010001001000000 
del %00000000000010001001000100100000 
del %00000000000001000100100010010000 
del %00000000000000100010010001001000 
del %00000000000000010001001000100100 
del %00000000000000001000100100010010 
del %00000000000000000100010010001001 

AmigaTrack: deb /indicates if Amiga-Format on DeepCopy 



fc: dc.b 00 

lc: dc.b 79 

tr: dc.b 3 

ws: dc.b 

vd: deb 1 



/First Cylinder 

/ Last 

/Tries 

/Write repeatedly 

/Verify 
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fa: dc.b 1 ;Fast Copy 

del: dc.b ;D1 Copy 

dc2: dc.b ;D2 Copy 

sd: dc.b 1 ;SourceBits 

dd: dc.b 2 ;DestDits 

sy: dc.b ;Sync correction 

waiting: dc.b ;irq wait_conter 

DevName: dc.b "trackdisk. device", 

END 
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ADKCON register 
ADKCONR register 
AllocSignal 
AmigaBASIC 
AmigaDOS 
APPEND 
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Assign 
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BCPL variables 

BeginIO function 

Bitmap 

Bitmap blocks 

Blitter 
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Boot block 

Boot block checksum 

Boot block viruses 

Boot routine 

Bootable disks 

BPTR 

Buffer 

Byte Bandit virus 



C programming language 
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Cancel gadget 
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Checksums 

Chip memory 

CLI 

CLI commands 

Clock bits 

Close 

CMD commands 

Coding 

Commands 

Console 

Control blocks 

Copy program 

Copy protection 

Copying 

CreateDir 

CreatePort function 

CreateProc 

CurrentDir 



198 

198 

138 

35, 38, 60, 62 

69,71 

41 

36 

28 



65 

71 

70 

160 

115, 118 

115, 118 

146, 183 

98 

98 

99-100 

128-131 

20, 99-101 

20 

70 

24 

128 

70 

65 

15 

40 

114, 180 

146, 212 

20, 32, 60 

32 

175 
79 

161 
175, 181 

147 
69 

110 

260 

179 
10 
81 
37 
86 
82 



Cylinders 



Data access 


95 


Data block 113, 


178, 180 


Data fields 


38,58 


Data records 


43,59 


Data redirection 


80 


DateStamp 
Default Tool 


87 
13 


Delay 
DeleteFile 


87 
82 


Deletion protection 
DeepCopy 
Device driver 


12 

260 

95 


Device structure 


154 


DeviceNode structure 


72 


DeviceProc 


87 


Devices 69, 


137, 147 


Dir 


30 


Directory 30, 84 
Discard 


, 62, 110 
12 


Disk Byte Read register 
Disk control 


198 
154 


Disk drive 


3, 9, 69 


Disk interrupts 
DiskLEN 


215 
197 


Disk monitor program 
Disk Pointer register 
Disk registers 
Disk Sync register 
DiskChange 
DiskDoctor 


96,219 
197 
194 

200 
27 
23 


DoIO function 


159 


DOS error messages 
DOS functions 


89 

78 


DOS Info structure 


71 


DOS library 
DOSBase 


60,71 
71 


Drawer 


12 


Drive accelerator 


240 


Drive Select register 
Drive Status register 
DSKD AT registers 
DSKLEN register 
DSKPT registers 
DupLock 


195 
194 

200 

197 

197 

83 
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Error messages 


89 


LSET 


44 


Examine 


83 






Exec 


137 


Magnetization 


174 


Execute 


87 


Merge 


60,64 


Exit 


87 


Message 


137 


ExNext 


83 


Message Port structure 


154 






Message structure 


139, 188 


File 


5,38 


MFM format 175, 178, 180 


File channel 


39 


Mini Base program 


45-59 


File control 


95 


MKS$ 


44 


File Handle structure 


78 


Monitor 


219 


File handling routines 


75 


Motor 


195 


File header block 


112 


Msg. Port structure 


188 


File list block 


113 


Multitasking 


157 


FilelnfoBlock 


83 






Filesystem 


95 


Object types 


12 


Format identification 


179 


Open 


78 


Formatting 


4, 173 


Operating system 


4,69 






Output 


80 


Garbage 


12 






GCR format 


175, 176 


ParentDir 


82 


GET 


44 


Port structure 


155 


GetPacket 


88 


Printer drivers 


30 






Project 


12,13 


Hard errors 


23 






Hash calculation 


117 


QBlit function 


183 


Hash Table 


115 


QueuePacket 


88 


Hashchain 


117 










RAM disk 


10 


Include file 


70, 147 


Random files 


43 


Index mark 


168 


RAW commands 


166 


Info 


12, 21, 85 


Read 


79 


Information block 


178 


Read/write heads 


4,136 


Information flow 


39 


Recording format 


174 


Initialize 


4 


Rename 


82 


Input 


80 


Reply messages 


137 


Input/Output functions 


78 


ReplyPort 


139, 188 


Install 


20, 98, 131 


Resident structures 


101 


Interrupt program 


168 


Resource structure 


157 


Interrupt structure 


152 


Retry gadget 


15 


IoErr 


81 


Root block 


110, 118 


IORequest structure 139, 148, 159 


RootNode 


71 


IOStandard 


140 






Islnteractive 


81 


SCA virus 


128 






Screen 


69 


Keyboard 


32,69 


Script files 


26-27 


Keyboard drivers 


30 


Sectors 


4, 136, 179 






Seek 


79 


LoadSeg 


88 


Sequential file 


38-42 


Lock 


81,82 


Serial interface 


69 


Lock structure 


72 


SetComment 


86 
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SetProtection 


86 


Signalbit 


138 


Speeder.s 


240 


ST.USERDIR 


112 


Stepper motor 


136 


Storage capacity 


30, 136 



Swiss Cracker's Association 128 

Sync marks 175, 179 

Synchronization 175 

System libraries 60 

T.SHORT 111 

ID commands 161 

Text editor 58 

Tool 12 
Track 178-179, 190 

Track coding 181 

Track data 146 

Trackdisk task 161, 188 
Trackdisk.device 110, 135, 152-154 

Tracks 4, 136 

Trashcan icon 12 

UnLoadSeg 88 

UnLock 83 

User directory blocks 1 12 

Viruses 127-131 

Wait function 188 

WaitForChar 80 

Workbench 15 

Workbench disk 12 

Write 79 
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Amiga Disk Drives 
Inside and Out 



Optional diskette 



For your convenience, the program listings contained in this book are 
available on an Amiga formatted floppy disk. You should order the diskette if 
you want to use the programs, but don't want to type them in from the 
listings in the book. 

All programs on the diskette have been fully tested. You can change the 
programs for your particular needs. The diskette is available for $14.95 plus 
$2.00 ($5.00 foreign) for postage and handling. 

When ordering, please give your name and shipping address. Enclose a 
check, money order or credit card information. Mail your order to: 

Abacus Software 

5370 52nd Street SE 

Grand Rapids, MI 49508 

Or for fast service, call 616/698-0330. 
Credit Card orders only 1-800-451-4319. 



New Books for the "WMOGA ™ 




AMIGA BASIC- Inside and Out 

AMIGA BASIC — Inside and Out is the definitive step-by-step 
guide to programming the AMIGA in BASIC. This huge volume 
should be within every AMIGA user's reach. Every AMIGA 
BASIC command is fully described and detailed. In addition, 
AMIGA BASIC — Inside and Out is loaded with real working 
programs. 

Topics include: 

• Video titling for high quality object animation 

• Bar and pie charts 

• Windows 

• Pull down menus 

• Mouse commands 

• Statistics 

• Sequential and relative files 

• Speech and sound synthesis 

Plus much, much more. Over 550 pages of vital information are 
contained in this book. Available late first quarter 1987. 

Suggested retail price: $24.95 

AMIGA Tricks & Tips 

AMIGA Tricks & Tips follows a tradition established by our other 
Tricks & Tips books for Commodore computers. It's another solid 
collection of diverse and useful programming techniques written 
for everyone who uses the AMIGA. This easy to understand 
source book details applications for the stunning processing power 
of the AMIGA. 

Topics include: 

• Displaying 64 colors on screen simultaneously 

• Accessing libraries from BASIC 

• Creating custom character sets 

• Using Amiga DOS, graphics 

In addition, AMIGA Tricks & Tips presents dozens of tips on 
windows, programming aids, the AMIGA'S speech synthesis and 
musical capabilities, covers important 68000 memory locations, 
and much more. 

AMIGA Tricks & Tips is available second quarter 1987. 

Suggested retail price: $19.95 
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Optional program diskettes are available for our AMIGA books 
Suggested retail price: $14.95 
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Amiga for Beginners 

A perfect introductory book of you're a new or prospective Amiga owner. 
Amiga for Beginners introduces you to Intuition (the Amiga's graphic 
interface), the mouse, windows, the versatile CLI. This first volume in our 
Amiga series explains every practical aspect of the Amiga in plain English. 
Includes clear, step-by-step instructions for common Amiga tasks. Amiga for 
Beginners is all the info you need to get up and running. 
Topics include: 

• Unpacking and connecting the Amiga components 

• Starting up your Amiga 

• Customizing the Workbench 

• Exploring the Extras disk 

• Taking your first steps in the AmigaB ASIC programming language 

• AmigaDOS functions 

• Using the CLI to perform "housekeeping" chores 

• First Aid, Keyword, Technical appendixes 

• Glossary 

Suggested retail price: $16.95 





No optional 
disk available 



Amiga System 
Programmer's Guide 



Amiga System Programmer's Guide has a wealth of information about what 
goes on inside the Amiga. Whether you want to know about the Amiga kernal or 
DOS commands, Amiga System Programmer's Guide has the information you 
need, explained in a manner that you can easily understand. Just a few of the 
things you will find inside: 

• EXEC Structure 

• Multitasking functions 

• I/O management through devices and I/O request 

• Interrupts and resource management 

• RESET and its operation 

• DOS libraries 

• Disk management 

• Detailed information about the CLI and its commands 

• Much more — over 600 pages worth 

Suggested retail price: $34.95 



Optional program diskettes are available for our AMIGA books 
Suggested retail price: $14.95 
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Amiga Machine Language 

The practical guide for learning how to program your Amiga in ultrafast machine 
language. Used in conjunction with our AssemPro Amiga software package, 
Amiga Machine Language is a comprehensive introduction to 68000 
assembler/machine language programming. Topics include: 

• 68000 microprocessor architecture 

• 68000 address modes and instruction set 

• Acessing RAM, operating system and multitasking capabilities 

• Details the powerful Amiga libraries for using AmigaDOS 

• Speech and sound facilities from machine language 

• Many useful programs listed and explained 



Suggested retail price: $19.95 




AmigaDOS Inside & Out 

AmigaDOS covers the insides of AmigaDOS from the internal design up to 
practical applications. There is also a detailed reference section which helps you 
find information in a flash, both alphabetically and in command groups. 
Topics include: 

• 68000 microprocessor architecture 

• AmigaDOS - Tasks and handling 

• Detailed explanations of CLI commands and their functions 

• DOS editors ED and EDIT 

• Operating notes about the CLI (wildcards, shortening input and output! 

• Amiga devices and how the CLI uses them 

• Batch files - what they are and how to write them 

• Changing the startup sequence 

• AmigaDOS and multitasking 

• Writing your own CLI commands 

• Reference to the CLI, ED- and EDIT commands 

• Resetting priorities - the TaskPri command 

• Protecting your Amiga from unauthorized use 



Suggested retail price: $19.95 





Optional program diskettes are available for our AMIGA books 
Suggested retail price: $14.95 
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AMIGA 3-D 

Graphics Programming 
in BASIC 

Amiga 3-D Graphics Programming in BASIC 

shows you how to use the powerful graphics 
capabilities of the Amiga. Details the techniques 
and algorithm for writing three dimensional 
graphics programs: ray tracing in all resolutions, light 
sources and shading, saving graphics in IFF format and more 
Suggested retail price: $19.95. 





AMIGA C 

for Beginners 

Amiga C for Beginners- and introduction 

to learning the popular C language. 

Explains the language elements using 

examples specifically geared to the Amiga. 

Describes C library routines, how the 

compiler works and more. 

Suggested retail price: $16.95 



AMIGA C 1 

for Advanced 
Programmers 

Amiga C for Advanced Programmers- contains 

a wealth of information from the pros: how compilers, assemblers "* K 

and linkers work, designing and programming user friendly interfaces 

using intuition, managing large programming projects, using jump 

tables and dynamic arrays, combing assembly language and C codes and more. 

Includes complete source code for text editor. 

Suggested retail price: $24.95 






Optional program diskettes are available for our AMIGA books 
Suggested retail price: $14.95 




Selected Abacus Products for the Amiga computers 



AssemPro 

Machine Language Development 
System for the Amiga 

Bridge the gap between slow higher-level languages and 
ultra-fast machine language programming: AssemPro 
Amiga unlocks the full power of the AMIGA'S 68000 
processor. It's a complete developer's kit for rapidly 
developing machine language/assembler programs on your 
Amiga. AssemPro has everything you need to write 
professional-quality programs "down to the bare metal": 
editor, debugger, disassembler & reassembler. 

Yet AssemPro isn't just for the 68000 experts. 
AssemPro is easy to use. You select options from 
dropdown menus or with shortcut keys, which makes your 
program development a much simpler process. With the 
optional Abacus book Amiga Machine Language 
(see page 3), AssemPro is the perfect introduction to 
Amiga machine language development and programming. 

AssemPro also has the professional features that 
advanced programmers look for. Lots of "extras" eliminate 
the most tedious, repetitious and time-consuming m/1 
programming tasks. Like syntax error search/replace 
functions to speed program alterations and debugging. And 
you can compile to memory for lightning speed. The 
comprehensive tutorial and manual have the detailed 
information you need for fast, effective programming. 

AssemPro Amiga offers more professional features, 
speed, sheer power, and ease of operation than any 
assembler package we've seen for the money. Test drive 
your AssemPro Amiga with the security of the 
Abacus 30-day MoneyBack Guarantee. 




Suggested retail price: 



$99.95 



Features 

Integrated Editor, Debugger, Disassembler and 

Reassembler 

Large operating system library 

Runs under CLI and Workbench 

Produces either PC-relocatable or absolute code 

Create custom macros for nearly any parameter (of 

different types) 

Error search and replace functions 

Cross-reference list 

Menu-controlled conditional and repeated assembly 

Full 32-bit arithmetic 

Advanced debugger with 68020 single-step emulation 

Written completely in machine language for ultra-fast 

operation 

Runs on any Amiga with 5\2K or more and Kickstart 

version 1.2 

Not copy protected 

Machine language programming requires a solid understanding 
of the AMIGA' snardware ana operating system. We do not 
recommend this package to beginning Amiga programmers 



Selected Abacus Products for the Amiga computers 



BeckerText 

Powerful Word Processing 
Package for the Amiga 

BeckerText Amiga is more than just a word processor. 

BeckerText Amiga gives you all of the easy-to-use 
features found in our TextPro Amiga, plus it lets you 
do a whole lot more. You can merge sophisticated IFF- 
graphics anywhere in your document You can hyphenate, 
create indexes and generate a table of contents for your 
documents, automatically. And what you see on the 
BeckerText screen is what you get when you print the 
document— real WYSIWYG formatting on your Amiga. 

But BeckerText gives you still more: it lets you 
perform calculations of numerical data within your 
documents, using flexible templates to add, subtract, 
multiply and divide up to five columns of numbers on a 
page. BeckerText can also display and print multiple 
columns of text, up to five columns per page, for 
professional-looking newsletters, presentations, reports, 
etc. Its expandable built-in spell checker eliminates those 
distracting typographical errors. 

BeckerText works with most popular dot-matrix and 
letter-quality printers, and even the latest laser printers for 
typeset-quality output. Includes comprehensive tutorial 
and manual. 

BeckerText gives you the power and flexibility that you 
need to produce the professional-quality documents that 

you demand. 

When you need more from your word processor than just 
word processing, you need BeckerText Amiga. 
Discover the power of BeckerText. 



Suggested retail price: 



$150.00 




Features 

Select options from pulldown menus or handy shortcut 

keys 

Fast, true WYSIWYG formatting 

Bold, italic, underline, superscript and subscript 

characters 

Automatic wordwrap and page numbering 

Sophisticated tab and indent options, with centering and 

margin justification 

Move, Copy, Delete, Search and Replace 

Automatic hyphenation, with automatic table of 

contents and index generation 

Write up to 999 characters per line with horizontal 

scrolling feature 

Check spelling as you write or interactively proof 

document; add to dictionary 

Performs calculations within your documents — 

calculate in columns with flexible templates 

Customize 30 function keys to store often-used text 

and macro commands 

Merge IFF graphics into documents 

Includes BTSnap program for converting text blocks to 

IFF graphics 

C-source mode for quick and easy C language program 

editing 

Print up to 5 columns on a single page 

Adapts to virtually any dot-matrix, letter-quality or laser 

printer 

Comprehensive tutorial and manual 

Not copy protected 



Selected Abacus Products for the Amiga computers 



DataRetrieve 

A Powerful Database Manager 
for the Amiga 

Imagine a powerful database for your Amiga: one that's 
fast, has a huge data capacity, yet is easy to work with. 

Now think DataRetrieve Amiga. It works the same 
way as your Amiga — graphic and intuitive, with no 
obscure commands. You quickly set up your data files 
using convenient on-screen templates called masks. Select 
commands from the pulldown menus or time-saving 
shortcut keys. Customize the masks with different text 
fonts, styles, colors, sizes and graphics. If you have any 
questions, Help screens are available at the touch of a 
button. And DataRetrieve's 128-page manual is clear 
and comprehensive. 

DataRetrieve is easy to use — but it also has 
professional features for your most demanding database 
applications. Password security for your data. 
Sophisticated indexing with variable precision. Full 
Search and Select functions. File sizes, data sets and data 
fields limited only by your memory and disk storage 
space. Customize up to 20 function keys to store macro 
commands and often-used text. For optimum access speed, 
DataRetrieve takes advantage of the Amiga's multi- 
tasking. 

You can exchange data with TextPro Amiga, 
BeckerText Amiga and other packages to easily 
produce form letters, mailing labels, index cards, 
bulletins, etc. DataRetrieve prints data reports to most 
dot-matrix & letter-quality printers. 

DataRetrieve is the perfect database for your Amiga. 
Get this proven system today with the assurance of the 
Abacus 30-day MoneyBack Guarantee. 




Suggested retail price: 



$79.95 



Features 

Select commands and options from the pulldown menus 
or shortcut keys 

Enter data into convenient screenmasks 
Enhance screen masks with different text styles, fonts, 
colors, graphics, etc. 
Work with 8 databases concurrently 
Define different field types: text, date, time, numeric & 
selection 

Customize 20 function keys to store macro commands 
and text 

Specify up to 80 index fields for superfast access to 
your data 

Perform simple or complex data searches 
Create subsets of a larger database for even faster 
operation 

Exchange data with other packages: form letters, 
mailing lists etc. 

Produce custom printer forms: index cards, labels, 
Rolodex»cards, etc. Adapts to most dot-matrix & letter- 
quality printers 

Protect your data with passwords 
Get Help from online screens 
Not copy protected 



• Max. file size 

• Max. data record size 

• Max. data set 

• Max. no. of data fields 

• Max. field size 



Limited only 
by your memory 
and disk space 
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TextPro 

The Ideal Word Processing 
Package for the Amiga 

TextPro Amiga is an full-function word processing 
package that shares the true spirit of the Amiga: easy to 
use, fast and powerful — with a surprising number of 
"extra" features. 

You can write your first TextPro documents without 
even reading the manual. Select options from the 
dropdown menus with your mouse, or use the time-saving 
shortcut keys to edit, format and print your documents. 

Yet TextPro is much more than a beginner's package. It 
has the professional features you need for all of your 
printed documents. Fast formatting on the screen: bold, 
italic, underline, etc. Centering and margin justification. 
Page headers and footers. Automatic hyphenation of text. 
You can customize the TextPro keyboard and function 
keys to suit your own style. Even merge IFF-format 
graphics right into your documents. TextPro includes 
BTSnap, a utility for saving IFF graphics that you can 
use in your graphics programs. This package can also 
convert and print other popular word processor files. 

TextPro is output-oriented. This means you can print 
your documents to exact specifications — and get top 
performance out of your dot-matrix or letter quality 
printer. (Printer drivers included on diskette let you 
customize TextPro to virtually any printer on the 
market). The complete tutorial and manual shows you 
how it's all done, step by step. 

TextPro sets a new standard for word processors in its 
price range. Easy to use, packed with advanced features — 
it's the Ideal package for all of your wordprocessing needs. 
Backed by the Abacus 30-day MoneyBack 
Guarantee. 




Suggested retail price: 



$79.95 



Features 

• Fast editing and formatting on screen 

• Display bold, italic, underline, superscript and subscript 
characters 

• Select options from dropdown menus or handy shortcut 
keys 

• Automatic wordwrap & page numbering 

• Sophisticated tab and indent options, with centering & 
margin justification 

• Move, Copy, Delete, Search &Replace options 

• Automatic hyphenation 

• Customize up to 30 function keys to store often-used 
text, macro commands 

• Merge IFF format graphics into your documents 

• Includes BTSnap program for saving IFF graphics from 
any program 

• Load & save files through RS-232 port 

• Flexible, ultrafast printer output— printer drivers for 
most popular dot-matrix & letter quality printers included 

• Comprehensive tutorial and manual 

• Not copy protected 




ROFESSIONAL 

DataRetrieve 



File your other databases away! 

Professional DataRetrieve, for the Amiga 500/1000/2000, is a friendly easy-to-operate 
professional level data management package with the features of a relational data base system. 

Professional DataRetrieve has complete relational data management capabilities. Define 
relationships between different files (one to one, one to many, many to many). Change 
relations without file reorganization. 

Professional DataRetrieve includes an extensive programming language which includes 
more than 200 BASIC-like commands and functions and integrated program editor. Design 
custom user interfaces with pulldown menus, icon selection, window activation and more. 

Professional DataRetrieve can perform calculations and searches using complex 
mathematical comparisons using over 80 functions and constants. 

Professional DataRetrieve's features: 

Up to 8 files can be edited simultaneously 
Maximum size of a data field 32,000 characters (text fields only) 
Maximum number of data fields limited by RAM 
Maximum record size of 64,000 characters 
Maximum number of records disk dependant 
(2,000,000,000 maximum) 
Up to 80 index fields per file 
Up to 6 field types - Text, Date, Time, 
Numeric, IFF, Choice 
Unlimited number of searches and sub- 
range criteria 

Integrated list editor and full-page printer 
mask editor 

Index accuracy selectable from 1-999 
characters 

Multiple file masks on-screen 
Easily create/edit on-screen masks for one 
or many files 

User-programmable pulldown menus 
Operate the program from the mouse or from 
the keyboard 

Calculation fields, Date fields 
IFF Graphics supported 
Mass-storage-oriented file organization 
Not Copy Protected, no dongle: can be installed on your hard drive 

5370 52nd St. SE Grand Rapids Ml 49508 - Order Toll Free! 800-451-4319 
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Computer VIRUSES, A High-Tech Disease describes 
the relatively new phenomena among personal computer 
users, one that has potential to destroy large amounts of 
data stored in PC systems. Simply put, this book explains 
what a virus is, how it works and what can be done to 
protect your PC against destruction. 



Computer VIRUSES, A High Tech Disease starts with a 
short history of computer viruses and will describe how a 
virus can quietly take hold of a PC. It will give you lots of 
information on the creation and removal of computer 
viruses. For the curious, there are several rudimentary 
programs which demonstrate some of the ways in which a 
virus infects a PC. 



Computer VIRUSES, A High Tech Disease even 

presents techniques on inoculating the PC from a virus. 
Whether you want to know a little or a lot about viruses, 
you'll find what you need in this book. 288 pages, $18.95 



Written by Ralf Burger 
Published by Abacus Software Inc. 

About the author; Ralf Burger is a system engineer who 
has spent many years experimenting with virus programs 
and locating them in computer systems. 



Topics include: 

• What are computer viruses 

• A short history of viruses 

• Definition of a virus 

• How self-manipulating programs work 

• Design and function of viral programs 

• Sample listings in BASIC, Pascal and machine language 

• Viruses and batch file 

• Examples of viral software manipulation 

• Protection options for the user 

• What to do when you're infected 

• Protection viruses and strategies 

• A virus recognition program 

• Virus proof operating systems 



Contact Abacus 
For More Information! 



Abacus! 



5370 52nd Street • Grand Rapids, Ml 49508 • (616) 698-0330 



How to Order 



AbacusIHl 5370 52nd Street SE Grand Rapids, Ml 49508 



All of our Amiga products-application and language 
software, and our Amiga Reference Library-are available at 
more than 2000 dealers in the U.S. and Canada. To find out 
the location of the Abacus dealer nearest you, call: 



Toll Free 1-800-451-4319 

8:30 am-8:00 pm Eastern Standard Time 



Or order from Abacus directly by phone with your credit 
card. We accept Mastercard, Visa and American Express. 

Every one of our software packages is backed by the 
Abacus 30-Day Guarantee — if for any reason you're not 
satisfied by the software purchased directly from us, simply 
return the product for a full refund of the purchase price. 
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Name: 



Address: 



CUjl. 



State 



Zip 
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Name of product 



Price 





















Midi, residents add 4% sales tax 
Shipping/Handling charge 

(Foreign Orders VlJ per Item) 










Check/M. »nei irder fOTAL enclosed 





Credit Card# 



Expiration date 







We appreciate your selection 
of another of ow 
fine products: 



In addition you may receive the 



Abacus on Amiga Newsletters^ 
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Return this completed card to receive Abacus on Amiga, our newsletter 
that keeps you informed about Abacus' newest products for the AMIGA. 



%,;> ajO*, ;"•**, r* 



■ 'ill 






S&ssw.s££2^fe2^s&.., 



I 
I 
I 



Reserve your copy now! 
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Address 
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Where did you purchase AMIGA DISK DRIVES: Inside and Out ?. 
What other Abacus Products would you be interested in? 








Amiga Disk Drives: Inside & Out shows 

everything you need to know about Amiga 
disk drives. You'll find information about data 
security, disk drive speedup routines, disk 
copy protection, boot blocks and technical 
aspects of the hardware. 

If you're a beginner, you'll learn simple disk 
drive operations using AmigaBASIC, the 
Workbench and the CLI (Command Line 
Interpreter). You'll also learn about loading and 
saving programs; sequential and relative file 
management techniques and much more. 

If you're an advanced user, you'll see how to 
access the disks without DOS, how to use and 
change the full-length disk monitor so that you 
can explore the disk by track and sector. This 
way you'll discover the inner workings of the 
disk drive. 

Amiga Disk Drives: inside & Out topics 
include: disk drive operations • file 
management • CLI, Workbench, AmigaBASIC 
disk commands and functions • disk and file 
copy methods and techniques • protecting files 
• disk format information 

FastCopy: You can copy entire diskettes in one 

minutel 

DeepCopy: Backup many copy protected disks 

Also copy ST and PC 3 1/2" disk formats with your 

Amiga disk drive! 

FloppySpeeder: Super fast-track disk routines 

independent of diskette access 

CrunchCopy: Packing routines without changing 

disk formats 

Disk Monitor: Full-length track and sector editor 



The most thorough 
coverage of Amiga 
disk drives ever. 



grams presented 
escribed and explained: 

• AmigaBASIC: loading, saving data and 
sequential and relative file management 

• Floppy disk operations from the 
Workbench and CLI (Command Line 
Interpreter) 

• DOS functions and operations 

• Disk block types, boot blocks, 
checksums, file headers, hashmarks and 
protection 

• Viruses and how to protect your boot block 

• Trackdisk.device: Commands and 
structures 

• Trackdisk-task: Function and design 

• Diskette access with DOS (Disk 
Operating System) 

• MFM, GCR, track design, blockheader, 
datablocks, checksums, coding and 
decoding data, hardware registers, SYNC 
and interrupts 

Optional Program Diskette available: 

Contains every program listed in the book - 
complete, error- free and ready to run! Saves 
you hours of typing in program listings. 



ISBN 1-55755-OMS-S 



Abacus 



| 1 . 5370 52nd Street SE • Grand Rapids, Ml 49508 



ol Commodofo- Amiga. Inc. 



